MX COBOL Version 3.0 - EN, Copyright (c) Vlastimil Cevela 1996, 2006 (20060528) D:\CeW\cobol\p\mx_x1.cb WHEN-COMPILED = 03/06/06 20:07:14 Registered user: 060529 Name, City, Country 0001 PROGRAM-ID.P62553. 0002 AUTHOR.XYZ. 0003 REMARKS.TISK MZDOVEHO LISTU. 0004 PRO KAZDEHO PRACOVNIKA SE TISKNE JEDEN MZDOVY LIST, KTERY 0005 OBSAHUJE UDAJE O MZDE ZA CELY ZPRACOVAVANY ROK. 0006 ZPRACOVAVAJI SE POUZE PRACOVNICI, PRO KTERE BYLA NALEZENA 0007 VETA JAK V CISTYCH MZDACH TAK I V S64007 (TEST NA ROVNOST 0008 OSOB.CISLA). 0009 V PAMETI JSOU VZDY NACTENY VSECHNY VETY ZE SOUBORU CISTYCH 0010 MEZD PRO DANEHO PRACOVNIKA (MUZE JICH BYT AZ 12) A JEDNA V 0011 ZE SOUBORU S64007 A POKUD BYL PRACOVNIK NA VOJ.CVICENI 0012 JEDNA VETA Z BRTOP UPRAVENE PRO TISK. 0013 ENVIRONMENT. 0014 CONFIGURATION. 0015 SPECIAL-NAMES. 0016 DECIMAL-POINT IS COMMA. 0017 INPUT-OUTPUT. 0018 FILE-CONTROL. 0019 SELECT KSP-JEP ASSIGN S-W62106. 0020 SELECT CIS-MZDY ASSIGN S-W62114. 0021 SELECT BRTOP ASSIGN S-W62019. 0022 SELECT SESTAVA ASSIGN S-Z62553. 0023 SELECT RODCISLA ASSIGN I-S65999 0024 ACCESS DYNAMIC NOMINAL KEY IS AK. 0025 DATA. 0026 FILE. 0027 FD RODCISLA. 0028 01 ROD-VETA. 0029 02 RCISLO PIC 9(5). 0030 02 RODCISLO1 PIC X(10). 0031 02 RODCISLO2 PIC X(10). 0032 02 RODCISLO3 PIC X(10). 0033 02 RODCISLO4 PIC X(10). 0034 02 RODCISLO5 PIC X(10). 0035 02 RODCISLO6 PIC X(10). 0036 FD KSP-JEP. 0037 copy "v64007.cpy". &** 0038 *** I 0039 *** VETA SOUBORU - S64007 . 0040 01 V64007. 0041 *** OSOBNI CISLO . 0042 02 A001 PIC S99999V USAGE DISPLAY. 0043 *** PRIJMENI JMENO TITUL . 0044 02 A002 PIC X(28). 0045 *** RODNE PRIJMENI . 0046 02 A003 PIC X(12). 0047 *** RODNE CISLO . 0048 02 A004 PIC S9999999999V USAGE DISPLAY. 0049 *** NARODNOST . 0050 02 A005 PIC S9V USAGE DISPLAY. 0051 *** STATNI PRISLUSNOST . 0052 02 A006 PIC S999V USAGE DISPLAY. 0053 *** RODINNY STAV . 0054 02 A007 PIC S9V USAGE DISPLAY. 0055 *** SOCIALNI PUVOD . 0056 02 A008 PIC S9V USAGE DISPLAY. 0057 *** PUVODNI POVOLANI . 0058 02 A009 PIC S9V USAGE DISPLAY. 0059 *** ZMENENA PRAC. SCHOPNOST . 0060 02 A010 PIC S9999V USAGE DISPLAY. 0061 *** DRUH DUCHODU . 0062 02 A011 PIC S999V USAGE DISPLAY. 0063 *** KOD TRVALEHO BYDLISTE . 0064 02 A012 PIC S9999999999V USAGE DISPLAY. 0065 *** MISTO TRVALEHO BYDLISTE . 0066 02 A013 PIC X(25). 0067 *** ULICE TRVALEHO BYDLISTE . 0068 02 A014 PIC X(20). 0069 *** PSC TRVALEHO BYDLISTE . 0070 02 A015 PIC S99999V USAGE DISPLAY. 0071 *** MISTO PRECHODNEHO BYDLISTE . 0072 02 A016 PIC X(25). 0073 *** ULICE PRECHODNEHO BYDLISTE . 0074 02 A017 PIC X(20). 0075 *** PSC PRECHODNEHO BYDLISTE . 0076 02 A018 PIC S99999V USAGE DISPLAY. 0077 *** KMENOVE STREDISKO . 0078 02 FILLER PIC X(1). 0079 * 02 A098 PIC S999V USAGE DISPLAY. &** 0080 02 A098 PIC 999. 0081 *** PODSTREDISKO . 0082 02 A099 PIC S9V USAGE DISPLAY. 0083 *** KATEGORIE . 0084 02 A100 PIC S9V USAGE DISPLAY. 0085 *** SKUPINA PRACUJICICH . 0086 02 A101 PIC S9V USAGE DISPLAY. 0087 *** DATUM VZNIKU PRAC.POMERU . 0088 02 A102 PIC S999999V USAGE DISPLAY. 0089 *** FORMA ZISKANI PRAC.DO ORG . 0090 02 A103 PIC S999V USAGE DISPLAY. 0091 *** DOBA ZAMESTNANI PRED KOB . 0092 02 A104 PIC S99999V USAGE DISPLAY. 0093 *** DATUM UKON. PRAC. POMERU . 0094 02 A105 PIC S999999V USAGE DISPLAY. 0095 *** DUVOD UKON. PRAC. POMERU . 0096 02 A106 PIC S999V USAGE DISPLAY. 0097 *** DATUM VYN. Z EVID. POC. . 0098 02 A107 PIC S999999V USAGE DISPLAY. 0099 *** DATUM NAV. DO EVID. POC. . 0100 02 A108 PIC S999999V USAGE DISPLAY. 0101 *** DRUH VYNETI Z EVID. POC. . 0102 02 A109 PIC S99V USAGE DISPLAY. 0103 *** DRUH PRACOVNIHO VZTAHU . 0104 02 A110 PIC S99V USAGE DISPLAY. 0105 *** ZAKONNY TYDENNI UVAZEK . 0106 02 A111 PIC S99V9 USAGE DISPLAY. 0107 *** DRUH CINNOSTI . 0108 02 A112 PIC S9V USAGE DISPLAY. 0109 *** POCET DETI NA ODPOC.DANE . 0110 02 A113 PIC S9V USAGE DISPLAY. 0111 *** NAROK NA DOVOLENOU . 0112 02 U-B pic x. &** 0113 02 FILLER PIC X(3). &** 0114 02 A114 PIC S99V9 USAGE DISPLAY. 0115 *** ZUSTATEK DOVOLENE . 0116 02 A115 PIC S99V9 USAGE DISPLAY. 0117 *** DETI S PRUKAZEM ZTP 0118 02 A116 PIC S9V. 0119 02 FILLER PIC X(2). 0120 *** DRUH MZDY . 0121 02 A117 PIC S99V USAGE DISPLAY. 0122 *** DAT.POSLED.ZMENY FUNKCE . 0123 02 FILLER PIC X(3). 0124 02 A120 PIC S999999V USAGE DISPLAY. 0125 *** PREVOD DOVOL.Z MINUL.ROKU . 0126 02 A121 PIC S99V9 USAGE DISPLAY. 0127 *** NEJVYSSI ODBORNE VZDELANI . 0128 02 FILLER PIC X(1). 0129 02 A201 PIC S99V USAGE DISPLAY. 0130 *** OBOR NEJVYSSIHO VZDELANI . 0131 02 A202 PIC S99999V USAGE DISPLAY. 0132 *** ROK UKON. NEJV. VZDELANI . 0133 02 A203 PIC S99V USAGE DISPLAY. 0134 *** DOPLNOVANE ODBOR.VZDELANI . 0135 02 A204 PIC S9V USAGE DISPLAY. 0136 *** OBOR DOPL.ODBOR.VZDELANI . 0137 02 A205 PIC S99999V USAGE DISPLAY. 0138 *** ROK ZAHAJENI DOPL.ODBOR.VZDELANI . 0139 02 A206 PIC S99V USAGE DISPLAY. 0140 *** PREDP.ROK UKONCENI DOPLN.ODBOR.VZDELANI . 0141 02 A207 PIC S99V USAGE DISPLAY. 0142 *** OBOR DALSI KVALIFIKACE . 0143 02 A208 PIC S99999V USAGE DISPLAY. 0144 *** PLATNOST TRIDY, PLATU . 0145 02 A209 PIC S999999V USAGE DISPLAY. 0146 *** PROFESE, FUNKCE . 0147 02 A210 PIC S99999V USAGE DISPLAY. 0148 *** NAZEV PROFESE . 0149 02 A211 PIC X(14). 0150 *** ZALOHA NA MZDU . 0151 02 A212 PIC S9999V USAGE DISPLAY. 0152 *** PRUMER ZAKLAD.PLATU . 0153 02 A213 PIC S999V99 USAGE DISPLAY. 0154 *** INDIKACE ZDRAV.POJISTOVNY . 0155 02 A215 PIC X. 0156 *** HODINY ZA MINUL.ROK . 0157 02 A216 PIC S99999V USAGE DISPLAY. 0158 *** PLATNOST KATEGORIE . 0159 02 A217 PIC S999999V USAGE DISPLAY. 0160 *** MESICNI PLAT . 0161 02 A218 PIC S999999V USAGE DISPLAY. 0162 *** PLANOVANE HODINY V MESICI . 0163 02 FILLER PIC X(8). 0164 02 A220 PIC S9999V9 USAGE DISPLAY. 0165 *** DAN ZE ZALOHY PODILU . 0166 02 A221 PIC S99999V USAGE DISPLAY. 0167 *** DRUH REKREACE 1 . 0168 02 A402 PIC S9V USAGE DISPLAY. 0169 *** ROK REKREACE 1 . 0170 02 A403 PIC S99V USAGE DISPLAY. 0171 *** POCET POUKAZU REKREACE 1 . 0172 02 A404 PIC S9V USAGE DISPLAY. 0173 *** PRISPEV. NA POUKAZ,REKR.1 . 0174 02 A405 PIC S99999V USAGE DISPLAY. 0175 *** DRUH REKREACE 2 . 0176 02 A406 PIC S9V USAGE DISPLAY. 0177 *** ROK REKREACE 2 . 0178 02 A407 PIC S99V USAGE DISPLAY. 0179 *** POCET POUKAZU REKREACE 2 . 0180 02 A408 PIC S9V USAGE DISPLAY. 0181 *** PRISPEV. NA POUKAZ,REKR.2 . 0182 02 A409 PIC S99999V USAGE DISPLAY. 0183 *** DRUH REKREACE 3 . 0184 02 A410 PIC S9V USAGE DISPLAY. 0185 *** ROK REKREACE 3 . 0186 02 A411 PIC S99V USAGE DISPLAY. 0187 *** POCET POUKAZU REKREACE 3 . 0188 02 A412 PIC S9V USAGE DISPLAY. 0189 *** PRISPEV. NA POUKAZ,REKR.3 . 0190 02 A413 PIC S99999V USAGE DISPLAY. 0191 *** POCET REKREACI . 0192 02 A414 PIC S99V USAGE DISPLAY. 0193 *** PRISPEV.NA REKREAC.CELKEM . 0194 02 A415 PIC S99999V USAGE DISPLAY. 0195 *** DRUH PIONYR.REKREACE 1 . 0196 02 A416 PIC S9V USAGE DISPLAY. 0197 *** ROK PIONYR.REKREACE 1 . 0198 02 A417 PIC S99V USAGE DISPLAY. 0199 *** POCET POUKAZU PIONYR.REKREACE1 . 0200 02 A418 PIC S9V USAGE DISPLAY. 0201 *** DRUH PIONYR.REKREACE 2 . 0202 02 A419 PIC S9V USAGE DISPLAY. 0203 *** ROK PIONYR.REKREACE 2 . 0204 02 A420 PIC S99V USAGE DISPLAY. 0205 *** POCET POUKAZU PIONYR.REKREACE2 . 0206 02 A421 PIC S9V USAGE DISPLAY. 0207 *** DRUH PIONYR.REKREACE 3 . 0208 02 A422 PIC S9V USAGE DISPLAY. 0209 *** ROK PIONYR.REKREACE 3 . 0210 02 A423 PIC S99V USAGE DISPLAY. 0211 *** POCET POUKAZU PIONYR.REKREACE3 . 0212 02 A424 PIC S9V USAGE DISPLAY. 0213 *** PRUMER OSTAT.SLOZEK MZDY S PRESCASEM . 0214 02 A500 PIC S999V99 USAGE COMP-3. 0215 *** PRUMER OSTAT.SLOZEK MZDY . 0216 02 A501 PIC S999V99 USAGE COMP-3. 0217 *** CEL.A PRUMER.PODIL SKODY . 0218 02 A502 PIC S999V99 USAGE COMP-3. 0219 *** DATUM ZMENY CELK.PRUMERU . 0220 02 A503 PIC S999999V USAGE DISPLAY. 0221 *** DATUM ZMENY ZAKLADNI MZDY . 0222 02 A504 PIC S999999V USAGE DISPLAY. 0223 *** DOBA POSKYTOVANI VYROV.PRISPEVKU-1.OBDOBI . 0224 02 A505 PIC S99999999V USAGE DISPLAY. 0225 *** DOBA POSKYTOVANI VYROV.PRISPEVKU-2.OBDOBI . 0226 02 A506 PIC S99999999V USAGE DISPLAY. 0227 *** PROCENTO PREMIE . 0228 02 FILLER PIC X(2). 0229 02 A509 PIC S99V USAGE DISPLAY. 0230 *** OSOBNI OHODNOCENI V KCS . 0231 02 A510 PIC S99999V USAGE DISPLAY. 0232 *** CISLO PODN.SBORNIKU PRACOVNIKU . 0233 02 A511 PIC X(9). 0234 *** OPRAVY VYROV.PRISPEVKU . 0235 02 FILLER PIC X(1). 0236 02 A512 PIC S999V USAGE DISPLAY. 0237 *** KOD ZAVEDENI PRACOVNIKA . 0238 02 A513 PIC S9V USAGE DISPLAY. 0239 *** TARIFNI STUPEN . 0240 02 FILLER PIC X(2). 0241 02 A701 PIC S99V USAGE DISPLAY. 0242 *** KRIVKA . 0243 02 A702 PIC X(2). 0244 02 A703 PIC S99V. &** 0245 * 02 FILLER PIC X(2). &** 0246 *** HODINOVY TARIF . 0247 02 A704 PIC S99V99 USAGE DISPLAY. 0248 *** POCET DETI NA PRIDAVKY . 0249 02 A705 PIC S99V USAGE DISPLAY. 0250 *** PRUMERNY VYDELEK . 0251 02 A706 PIC S99V99 USAGE DISPLAY. 0252 *** PRUM.KRATKODOB.NAHR.MZDY . 0253 02 A707 PIC S9999V99 USAGE DISPLAY. 0254 *** PRUMER NEMOC.DAVEK . 0255 02 A708 PIC S9999V99 USAGE DISPLAY. 0256 *** DANOVA TRIDA . 0257 02 A709 PIC S9V USAGE DISPLAY. 0258 *** POCET INVAL.DETI . 0259 02 A710 PIC S9V USAGE DISPLAY. 0260 *** ZALOHA PODILU . 0261 02 A711 PIC S99999V USAGE DISPLAY. 0262 *** ODMENY DO 2000 KCS . 0263 02 A712 PIC S99999V USAGE DISPLAY. 0264 *** VYZIV.OSOBY VE SPOL.DOM. . 0265 02 A713 PIC S9V USAGE DISPLAY. 0266 *** VYZ.OSOBY MIMO SPOL.DOM. . 0267 02 A714 PIC S9V USAGE DISPLAY. 0268 *** VYZIV.OSOBY INVALIDNI . 0269 02 A715 PIC S9V USAGE DISPLAY. 0270 *** VYZIV.OSOBY NEVIDOME . 0271 02 A716 PIC S9V USAGE DISPLAY. 0272 *** CISLO VYPLATNI . 0273 02 A717 PIC S99V USAGE DISPLAY. 0274 *** DETI NAD 15 LET . 0275 02 A718 PIC S9V USAGE DISPLAY. 0276 *** DETI NA MATER.PRISPEVEK . 0277 02 A719 PIC S9V USAGE DISPLAY. 0278 *** POCET VYZIV.OSOB . 0279 02 A720 PIC S99V USAGE DISPLAY. 0280 *** INDIKATOR ROH . 0281 02 A721 PIC X(1). 0282 *** DATUM NAROZ.DETI 1-2 . 0283 02 A722 PIC S999999999999V USAGE DISPLAY. 0284 *** DATUM NAROZ.DETI 3-4 . 0285 02 A723 PIC S999999999999V USAGE DISPLAY. 0286 *** DATUM NAROZ.DETI 5-6 . 0287 02 A724 PIC S999999999999V USAGE DISPLAY. 0288 *** DATUM NAROZ.DETI 7-8 . 0289 02 A725 PIC S999999999999V USAGE DISPLAY. 0290 *** DATUM NAROZ.DETI 9-10 . 0291 02 A726 PIC S999999999999V USAGE DISPLAY. 0292 *** CISLO 2.PRAC.KATEGORIE . 0293 02 A727 PIC X(10). 0294 *** DAT.ZAVED.2.PRAC.KATEG . 0295 02 A728 PIC S999999V USAGE DISPLAY. 0296 *** JEDNORAZ.MZDA OD POC.ROKU . 0297 02 A729 PIC S9999999V99 USAGE COMP-3. 0298 *** DAN Z JEDNORAZOVE MZDY . 0299 02 A730 PIC S9999999V USAGE COMP-3. 0300 *** ROC.UHRN PRIJMU(HR.MZDA) . 0301 02 A731 PIC S9999999V USAGE COMP-3. 0302 *** ROCNI POJISTNE (ZDR+SOC) . 0303 02 A732 PIC S9999999V USAGE COMP-3. 0304 *** ROCNI SNIZENI DETI S ZTP . 0305 02 A733 PIC S9999999V USAGE COMP-3. 0306 *** ZAKLAD DANE . 0307 02 A734 PIC S9999999V USAGE COMP-3. 0308 *** ROCNI ZALOHA NA DAN . 0309 02 A735 PIC S9999999V USAGE COMP-3. 0310 *** NASTUP NEZAMESTNANEHO . 0311 02 A736 PIC S9V USAGE DISPLAY. 0312 *** KALEN.DNY NEMOCI ZA KVART . 0313 02 A737 PIC S99V USAGE DISPLAY. 0314 *** ROCNI SNIZENI POPLATNIKA . 0315 02 A738 PIC S9999999V USAGE COMP-3. 0316 *** ROCNI SNIZENI DETI . 0317 02 A739 PIC S9999999V USAGE COMP-3. 0318 *** ROCNI SNIZENI INVALIDITY . 0319 02 A740 PIC S9999999V USAGE COMP-3. 0320 *** 1.CTVRT.13.PLATU+OS.UCTU . 0321 02 A741 PIC S9999999V99 USAGE COMP-3. 0322 *** 2.CTVRT.13.PLATU+OS.UCTU . 0323 02 A742 PIC S9999999V99 USAGE COMP-3. 0324 *** 3.CTVRT.13.PLATU+OS.UCTU . 0325 02 A743 PIC S9999999V99 USAGE COMP-3. 0326 *** 4.CTVRT.13.PLATU+OS.UCTU . 0327 02 A744 PIC S9999999V99 USAGE COMP-3. 0328 *** KALEN.DNY NEMOCI ZA MES . 0329 02 A745 PIC S99V USAGE DISPLAY. 0330 *** VETNA REZERVA1 . 0331 02 FILLR1 PIC X(43). 0332 *** VETNA REZERVA2 . 0333 02 FILLR2 PIC X(4). 0334 * COPY V64007 OF C. 0335 FD CIS-MZDY BLOCK 0. 0336 copy "p62101.cpy". &** 0337 * POPIS VETY S62101 KMEN.SOUBORU CISTYCH MEZD. 0338 * RECSIZE = 480, IS SOUBOR NA DISKU KOB003. 0339 01 PRAC. 0340 02 AG PIC XXX. 0341 02 OBDOBI. 0342 03 MM PIC 99. 0343 03 RR PIC 99. 0344 02 OSCIS PIC 9(5). 0345 02 JMENO PIC X(28). 0346 02 STRED PIC XXX. 0347 02 ODPRHOD PIC S9999V9 COMP-3. 0348 02 PRESCAS PIC S9999V9 COMP-3. 0349 02 CERP-RD PIC S9999V9 COMP-3. 0350 02 ZUST-RD PIC S9999V9 COMP-3. 0351 02 POV-VOLNO PIC S9999V9 COMP-3. 0352 02 ABSENCE PIC S999 COMP-3. 0353 02 PRACDNY-PN PIC S999 COMP-3. 0354 02 KALDNY-PN PIC S999 COMP-3. 0355 02 CELMZDA PIC S9(7) COMP-3. 0356 02 PREMIE PIC S9(7) COMP-3. 0357 02 FOND-VED PIC S9(5) COMP-3. 0358 02 TRIPLAT PIC S9(5) COMP-3. 0359 02 ZSP PIC S9(5) COMP-3. 0360 02 DANTR PIC X. 0361 02 PIC XX. 0362 02 ZALOHA PIC S9(5) COMP-3. 0363 02 VYPUJCKA PIC S9(7) COMP-3. 0364 02 OST-SRAZ-POD PIC S9(5) COMP-3. 0365 02 SPORENI PIC S9(7) COMP-3. 0366 02 POD-PUJCKY PIC S9(5) COMP-3. 0367 02 ST-PUJCKY PIC S9(5) COMP-3. 0368 02 OST-PUJCKY PIC S9(5) COMP-3. 0369 02 VYZIVNE-VR PIC S9(5) COMP-3. 0370 02 OST-VYKROZ PIC S9(5) COMP-3. 0371 02 PIC XX. 0372 02 ROH PIC S999 COMP-3. 0373 02 JINESRAZ PIC S9(5) COMP-3. 0374 02 NEMOCEN PIC S9(5) COMP-3. 0375 02 PRIDAVKY PIC S9(5) COMP-3. 0376 02 OSTODM PIC S9(5) COMP-3. 0377 02 VYNALEZY PIC S9(7) COMP-3. 0378 02 CELKEM PIC S9(7) COMP-3. 0379 02 ZDAN-CEL PIC S9(7) COMP-3. 0380 02 SRAZ-CEL PIC S9(7) COMP-3. 0381 02 VYPL-CEL PIC S9(7) COMP-3. 0382 02 PN-OD1. 0383 03 PN-DD1 PIC XX. 0384 03 PN-MM1 PIC XX. 0385 02 ZAC-NEM-OD1 REDEFINES PN-OD1 PIC X(4). 0386 02 PN-OD2. 0387 03 PN-DD2 PIC XX. 0388 03 PN-MM2 PIC XX. 0389 02 ZAC-NEM-OD2 REDEFINES PN-OD2 PIC X(4). 0390 02 PN-OD3. 0391 03 PN-DD3 PIC XX. 0392 03 PN-MM3 PIC XX. 0393 02 ZAC-NEM-OD3 REDEFINES PN-OD3 PIC X(4). 0394 02 DRUH-ND1 PIC XX. 0395 02 DRUH-ND2 PIC XX. 0396 02 DRUH-ND3 PIC XX. 0397 02 PIC X. 0398 02 VYPL1. 0399 03 OD1 PIC XX. 0400 03 DO1 PIC XX. 0401 02 VYPL2. 0402 03 OD2 PIC XX. 0403 03 DO2 PIC XX. 0404 02 VYPL3. 0405 03 OD3 PIC XX. 0406 03 DO3 PIC XX. 0407 02 VYPL-KCS. 0408 03 NEM1 PIC S9(5) COMP-3. 0409 03 NEM2 PIC S9(5) COMP-3. 0410 03 NEM3 PIC S9(5) COMP-3. 0411 02 PS-OD1. 0412 03 PS-DD1 PIC XX. 0413 03 PS-MM1 PIC XX. 0414 02 PS-OD2. 0415 03 PS-DD2 PIC XX. 0416 03 PS-MM2 PIC XX. 0417 02 PS-OD3. 0418 03 PS-DD3 PIC XX. 0419 03 PS-MM3 PIC XX. 0420 02 DOVOL-MIN PIC S9999V9 COMP-3. 0421 02 PRACDNY1 PIC S999 COMP-3. 0422 02 PRACDNY2 PIC S999 COMP-3. 0423 02 PRACDNY3 PIC S999 COMP-3. 0424 02 ND-DENNE. 0425 03 ND70 PIC S999 COMP-3. 0426 03 ND90 PIC S999 COMP-3. 0427 02 FILLER PIC XX. 0428 02 SMENNOST PIC S9V99 COMP-3. 0429 02 KD-MESIC PIC S999 COMP-3. 0430 02 NEPL-MD PIC S999 COMP-3. 0431 02 ARMADA PIC S999 COMP-3. 0432 02 KALDNY-VVP PIC S999 COMP-3. 0433 02 OSTVYD PIC S9(5) COMP-3. 0434 02 MZDA-EVID PIC S9(5) COMP-3. 0435 02 DAN PIC S9(5) COMP-3. 0436 02 NAPROP PIC S9(5) COMP-3. 0437 02 NEDOROH PIC S9(5) COMP-3. 0438 02 SMLOUVY PIC S9(5) COMP-3. 0439 02 ZVS PIC S9(5) COMP-3. 0440 02 PIC X(6). 0441 02 DAN-CELKEM PIC S9(5) COMP-3. 0442 02 PIC XX. 0443 02 NEZDAN PIC S9(5) COMP-3. 0444 02 PRACDNY-BUD PIC S999 COMP-3. 0445 02 PRIPL-INV PIC S999 COMP-3. 0446 02 PIC XX. 0447 02 VOJCVIC PIC S9(5) COMP-3. 0448 02 HOD-MD PIC S9999V9 COMP-3. 0449 02 MZDA-MD PIC S9(5) COMP-3. 0450 02 VYROV-PRISP PIC S9(5) COMP-3. 0451 02 PD-KRAC-ND PIC S999 COMP-3. 0452 02 PIC X(25). 0453 02 JO-ROH PIC S999 COMP-3. 0454 02 ZAKDAN PIC S9(5) COMP-3. 0455 02 VYK-ROZH PIC S9(5) COMP-3. 0456 02 CELK-ROH PIC S999 COMP-3. 0457 02 HRUPLAT PIC S9(7) COMP-3. 0458 02 INDPOJ PIC X. 0459 02 VYPL-CIS PIC XX. 0460 02 KATEG PIC X. 0461 02 ROCNI-VYUCT PIC S9(5) COMP-3. 0462 02 UPRAV-DANE PIC S9(5) COMP-3. 0463 02 ZALOHA-PODILU PIC 9(5). 0464 02 ZALOHA-DAN PIC 9(5). 0465 02 KOD PIC 9. & ODPOCET DOPRAVNEHO. 0466 02 PIC X. 0467 02 ZL-NAVRHY PIC S9(5) COMP-3. 0468 02 KUHRADE PIC S9(5) COMP-3. 0469 02 PIC X(2). 0470 02 PRUM-VYD PIC S9(5)V99 COMP-3. 0471 02 KONTR-VYD PIC 999V99. 0472 * VYROVNAVACI PRISPEVEK 140 KCS 0473 02 VYR-PRISP. 0474 03 NAPRACOV PIC S9(5) COMP-3. 0475 03 NADETI PIC S9(5) COMP-3. 0476 03 OPRAVY PIC S9(5) COMP-3. 0477 03 JEDNORAZ PIC S9(5) COMP-3. 0478 02 ODSTUPNE PIC S9(7) COMP-3. 0479 02 NAJEM1 PIC S9(5) COMP-3. 0480 02 PIC X(10). 0481 02 SNIZTP PIC S9(7) COMP-3. 0482 02 PROPLDOV PIC S9(5) COMP-3. 0483 02 RENTAPONEM PIC S9(7) COMP-3. 0484 02 RENTAPRUBNEM PIC S9(7) COMP-3. 0485 02 JEDNORAZMZDA PIC S9(7) COMP-3. 0486 02 JEDNORAZDAN PIC S9(7) COMP-3. 0487 * od 1.1. bude rezerva 0488 02 ZAKSOCPOJ PIC S9(7) COMP-3. 0489 02 ZAKZDRPOJ PIC S9(7) COMP-3. 0490 02 SRAZSOC PIC S9(7) COMP-3. 0491 02 SRAZZDR PIC S9(7) COMP-3. 0492 02 SNIZDOPR PIC S9(7) COMP-3. 0493 * od 1.1. bude rezerva 0494 02 SNIZPOPL PIC S9(7) COMP-3. 0495 02 SNIZDETI PIC S9(7) COMP-3. 0496 02 SNIZINV PIC S9(7) COMP-3. 0497 02 SNIZINVIND PIC S9(7) COMP-3. 0498 02 MONTERKY PIC S9(7) COMP-3. 0499 02 POJISTENI PIC S9(5) COMP-3. 0500 02 ND67 PIC S999 COMP-3. 0501 02 PRACJUB PIC S9(7) COMP-3. 0502 02 DOPOCETDAN PIC S9(5) COMP-3. 0503 02 JEDMZDA PIC S9(7) COMP-3. 0504 02 FILLER PIC X(13). 0505 * COPY P62101 OF S. 0506 FD BRTOP BLOCK 0. 0507 01 VETA-BRTOP. 0508 05 OS-CIS PIC 9(5). 0509 05 JMEN PIC XXX. 0510 05 STREDISK PIC 999. 0511 05 MES-OD PIC 99. 0512 05 MES-DO PIC 99. 0513 05 ROK-VC PIC 99. 0514 05 DNY-VC PIC 999. 0515 FD SESTAVA. 0516 01 RADEK. 0517 05 PIC X. 0518 05 TISK PIC X(152). 0519 ***************************************************************** 0520 * 0521 * W O R K I N G - S T O R A G E S E C T I O N 0522 * 0523 ***************************************************************** 0524 * 0525 WORKING-STORAGE SECTION. 0526 01 AK PIC 9(5). 0527 01 VETA-MZ. 0528 05 VETA-MZDY PIC X(480) OCCURS 12. 0529 * VETA-MZDY = POLE PRO ULOZENI VSECH VET CISTYCH MEZD PRAVE 0530 * ZPRACOVAVANEHO PRACOVNIKA V PAMETI 0531 copy "p62101.cpy" attribute W. &** 0532 * POPIS VETY S62101 KMEN.SOUBORU CISTYCH MEZD. 0533 * RECSIZE = 480, IS SOUBOR NA DISKU KOB003. 0534 01 WPRAC. 0535 02 WAG PIC XXX. 0536 02 WOBDOBI. 0537 03 WMM PIC 99. 0538 03 WRR PIC 99. 0539 02 WOSCIS PIC 9(5). 0540 02 WJMENO PIC X(28). 0541 02 WSTRED PIC XXX. 0542 02 WODPRHOD PIC S9999V9 COMP-3. 0543 02 WPRESCAS PIC S9999V9 COMP-3. 0544 02 WCERP-RD PIC S9999V9 COMP-3. 0545 02 WZUST-RD PIC S9999V9 COMP-3. 0546 02 WPOV-VOLNO PIC S9999V9 COMP-3. 0547 02 WABSENCE PIC S999 COMP-3. 0548 02 WPRACDNY-PN PIC S999 COMP-3. 0549 02 WKALDNY-PN PIC S999 COMP-3. 0550 02 WCELMZDA PIC S9(7) COMP-3. 0551 02 WPREMIE PIC S9(7) COMP-3. 0552 02 WFOND-VED PIC S9(5) COMP-3. 0553 02 WTRIPLAT PIC S9(5) COMP-3. 0554 02 WZSP PIC S9(5) COMP-3. 0555 02 WDANTR PIC X. 0556 02 PIC XX. 0557 02 WZALOHA PIC S9(5) COMP-3. 0558 02 WVYPUJCKA PIC S9(7) COMP-3. 0559 02 WOST-SRAZ-POD PIC S9(5) COMP-3. 0560 02 WSPORENI PIC S9(7) COMP-3. 0561 02 WPOD-PUJCKY PIC S9(5) COMP-3. 0562 02 WST-PUJCKY PIC S9(5) COMP-3. 0563 02 WOST-PUJCKY PIC S9(5) COMP-3. 0564 02 WVYZIVNE-VR PIC S9(5) COMP-3. 0565 02 WOST-VYKROZ PIC S9(5) COMP-3. 0566 02 PIC XX. 0567 02 WROH PIC S999 COMP-3. 0568 02 WJINESRAZ PIC S9(5) COMP-3. 0569 02 WNEMOCEN PIC S9(5) COMP-3. 0570 02 WPRIDAVKY PIC S9(5) COMP-3. 0571 02 WOSTODM PIC S9(5) COMP-3. 0572 02 WVYNALEZY PIC S9(7) COMP-3. 0573 02 WCELKEM PIC S9(7) COMP-3. 0574 02 WZDAN-CEL PIC S9(7) COMP-3. 0575 02 WSRAZ-CEL PIC S9(7) COMP-3. 0576 02 WVYPL-CEL PIC S9(7) COMP-3. 0577 02 WPN-OD1. 0578 03 WPN-DD1 PIC XX. 0579 03 WPN-MM1 PIC XX. 0580 02 WZAC-NEM-OD1 REDEFINES WPN-OD1 PIC X(4). 0581 02 WPN-OD2. 0582 03 WPN-DD2 PIC XX. 0583 03 WPN-MM2 PIC XX. 0584 02 WZAC-NEM-OD2 REDEFINES WPN-OD2 PIC X(4). 0585 02 WPN-OD3. 0586 03 WPN-DD3 PIC XX. 0587 03 WPN-MM3 PIC XX. 0588 02 WZAC-NEM-OD3 REDEFINES WPN-OD3 PIC X(4). 0589 02 WDRUH-ND1 PIC XX. 0590 02 WDRUH-ND2 PIC XX. 0591 02 WDRUH-ND3 PIC XX. 0592 02 PIC X. 0593 02 WVYPL1. 0594 03 WOD1 PIC XX. 0595 03 WDO1 PIC XX. 0596 02 WVYPL2. 0597 03 WOD2 PIC XX. 0598 03 WDO2 PIC XX. 0599 02 WVYPL3. 0600 03 WOD3 PIC XX. 0601 03 WDO3 PIC XX. 0602 02 WVYPL-KCS. 0603 03 WNEM1 PIC S9(5) COMP-3. 0604 03 WNEM2 PIC S9(5) COMP-3. 0605 03 WNEM3 PIC S9(5) COMP-3. 0606 02 WPS-OD1. 0607 03 WPS-DD1 PIC XX. 0608 03 WPS-MM1 PIC XX. 0609 02 WPS-OD2. 0610 03 WPS-DD2 PIC XX. 0611 03 WPS-MM2 PIC XX. 0612 02 WPS-OD3. 0613 03 WPS-DD3 PIC XX. 0614 03 WPS-MM3 PIC XX. 0615 02 WDOVOL-MIN PIC S9999V9 COMP-3. 0616 02 WPRACDNY1 PIC S999 COMP-3. 0617 02 WPRACDNY2 PIC S999 COMP-3. 0618 02 WPRACDNY3 PIC S999 COMP-3. 0619 02 WND-DENNE. 0620 03 WND70 PIC S999 COMP-3. 0621 03 WND90 PIC S999 COMP-3. 0622 02 FILLER PIC XX. 0623 02 WSMENNOST PIC S9V99 COMP-3. 0624 02 WKD-MESIC PIC S999 COMP-3. 0625 02 WNEPL-MD PIC S999 COMP-3. 0626 02 WARMADA PIC S999 COMP-3. 0627 02 WKALDNY-VVP PIC S999 COMP-3. 0628 02 WOSTVYD PIC S9(5) COMP-3. 0629 02 WMZDA-EVID PIC S9(5) COMP-3. 0630 02 WDAN PIC S9(5) COMP-3. 0631 02 WNAPROP PIC S9(5) COMP-3. 0632 02 WNEDOROH PIC S9(5) COMP-3. 0633 02 WSMLOUVY PIC S9(5) COMP-3. 0634 02 WZVS PIC S9(5) COMP-3. 0635 02 PIC X(6). 0636 02 WDAN-CELKEM PIC S9(5) COMP-3. 0637 02 PIC XX. 0638 02 WNEZDAN PIC S9(5) COMP-3. 0639 02 WPRACDNY-BUD PIC S999 COMP-3. 0640 02 WPRIPL-INV PIC S999 COMP-3. 0641 02 PIC XX. 0642 02 WVOJCVIC PIC S9(5) COMP-3. 0643 02 WHOD-MD PIC S9999V9 COMP-3. 0644 02 WMZDA-MD PIC S9(5) COMP-3. 0645 02 WVYROV-PRISP PIC S9(5) COMP-3. 0646 02 WPD-KRAC-ND PIC S999 COMP-3. 0647 02 PIC X(25). 0648 02 WJO-ROH PIC S999 COMP-3. 0649 02 WZAKDAN PIC S9(5) COMP-3. 0650 02 WVYK-ROZH PIC S9(5) COMP-3. 0651 02 WCELK-ROH PIC S999 COMP-3. 0652 02 WHRUPLAT PIC S9(7) COMP-3. 0653 02 WINDPOJ PIC X. 0654 02 WVYPL-CIS PIC XX. 0655 02 WKATEG PIC X. 0656 02 WROCNI-VYUCT PIC S9(5) COMP-3. 0657 02 WUPRAV-DANE PIC S9(5) COMP-3. 0658 02 WZALOHA-PODILU PIC 9(5). 0659 02 WZALOHA-DAN PIC 9(5). 0660 02 WKOD PIC 9. & ODPOCET DOPRAVNEHO. 0661 02 PIC X. 0662 02 WZL-NAVRHY PIC S9(5) COMP-3. 0663 02 WKUHRADE PIC S9(5) COMP-3. 0664 02 PIC X(2). 0665 02 WPRUM-VYD PIC S9(5)V99 COMP-3. 0666 02 WKONTR-VYD PIC 999V99. 0667 * VYROVNAVACI PRISPEVEK 140 KCS 0668 02 WVYR-PRISP. 0669 03 WNAPRACOV PIC S9(5) COMP-3. 0670 03 WNADETI PIC S9(5) COMP-3. 0671 03 WOPRAVY PIC S9(5) COMP-3. 0672 03 WJEDNORAZ PIC S9(5) COMP-3. 0673 02 WODSTUPNE PIC S9(7) COMP-3. 0674 02 WNAJEM1 PIC S9(5) COMP-3. 0675 02 PIC X(10). 0676 02 WSNIZTP PIC S9(7) COMP-3. 0677 02 WPROPLDOV PIC S9(5) COMP-3. 0678 02 WRENTAPONEM PIC S9(7) COMP-3. 0679 02 WRENTAPRUBNEM PIC S9(7) COMP-3. 0680 02 WJEDNORAZMZDA PIC S9(7) COMP-3. 0681 02 WJEDNORAZDAN PIC S9(7) COMP-3. 0682 * od 1.1. bude rezerva 0683 02 WZAKSOCPOJ PIC S9(7) COMP-3. 0684 02 WZAKZDRPOJ PIC S9(7) COMP-3. 0685 02 WSRAZSOC PIC S9(7) COMP-3. 0686 02 WSRAZZDR PIC S9(7) COMP-3. 0687 02 WSNIZDOPR PIC S9(7) COMP-3. 0688 * od 1.1. bude rezerva 0689 02 WSNIZPOPL PIC S9(7) COMP-3. 0690 02 WSNIZDETI PIC S9(7) COMP-3. 0691 02 WSNIZINV PIC S9(7) COMP-3. 0692 02 WSNIZINVIND PIC S9(7) COMP-3. 0693 02 WMONTERKY PIC S9(7) COMP-3. 0694 02 WPOJISTENI PIC S9(5) COMP-3. 0695 02 WND67 PIC S999 COMP-3. 0696 02 WPRACJUB PIC S9(7) COMP-3. 0697 02 WDOPOCETDAN PIC S9(5) COMP-3. 0698 02 WJEDMZDA PIC S9(7) COMP-3. 0699 02 FILLER PIC X(13). 0700 * COPY P62101 OF S ATTRIBUTE W. 0701 01 KLIC1. 0702 05 K1-STAV PIC 9 VALUE 0. 0703 05 KL1. 0704 07 K1STR PIC 99. 0705 07 K1JM PIC XXX. 0706 07 K1-OSCIS PIC 9(5). 0707 * KLIC1 = KLIC SOUBORU KSP-JEP 0708 01 KLIC2. 0709 05 K2-STAV PIC 9 VALUE 0. 0710 05 KL2. 0711 07 K2STR PIC 99. 0712 07 K2JM PIC XXX. 0713 07 K2-OSCIS PIC 9(5). 0714 * KLIC2 = KLIC SOUBORU CIS-MEZD ZA MESIC 1-12 0715 * KLIC1 A KLIC2 = PRO PAROVANI SOUBORU 0716 01 KLIC3. 0717 05 K3-STAV PIC 9 VALUE 0. 0718 05 KL3. 0719 07 K3STR PIC 99. 0720 07 K3JM PIC XXX. 0721 07 K3-OSCIS PIC 9(5) VALUE 0. 0722 * KLIC3 = KLIC SOUBOR BRTOP 0723 01 I PIC 99 VALUE 0. 0724 01 J PIC 99 VALUE 0. 0725 * I,J = INDEX PRO CTENI VET CISTYCH MEZD ULOZENYCH V PAMETI 0726 01 INDEX-01 PIC 9 VALUE 0. 0727 * INDEX-01 = 1 V PREDCHOZIM CYKLU BYLA ZPRACOVAVANA NEM.DAVKA=01 0728 01 PRVNI-01 PIC 9 VALUE 0. 0729 * PRVNI-01 = PRO NASTAVENI POLI ZAC-NEM-N, ZAC-NEM-S PRI 0730 * ZPRACOVANI 1.VETY S DR.NEM.DAVKY 01 0731 01 ZACATEK PIC 9 VALUE 0. 0732 * ZACATEK = 1 JIZ BYL TISTEN ALESPON 1 RADEK S NEM.DAVKOU = 01, 0733 * KTERA MA STEJNY ZACATEK NEMOCI 0734 01 ZAC-NEM-S PIC X(4). 0735 * ZAC-NEM-S = DDMM ZACATKU NEMOCI NEM.DAV = 01 Z PREDCHOZI NEMOCI 0736 01 ZAC-NEM-N PIC X(4). 0737 * ZAC-NEM-N = DDMM ZACATKU NEMOCI NEM.DAV = 01 ZE ZPRACOVAVANE 0738 * NEMOCI 0739 01 INDEX-05 PIC 9 VALUE 0. 0740 * INDEX-05 = OZNACUJE KTEROU NEMOC.DAVKU ZPRACOVAVAME 0741 * = 0 NEMOC.DAVKA NENI 05 0742 * = 1 NEM.DAVKA 05, KTERA MA NULU V POLOZCE 'VYPLACENO KC 0743 * A PREDPOKLADA SE, ZE ZA NI NASLEDUJE DALSI NEMOCENS 0744 * DAVKA 05 S NENUL.HODNOTOU V POLOZCE 'VYPLACENO KCS' 0745 * = 2 NEM.DAVKA 05, KTERA MA NULOV.HODNUTU 'VYPLACENO KCS 0746 * = 3 NEMOC.DAVKA 05 ZA KTEROU NASLEDUJE DALSI NEM.DAVKA 0747 * S NENUL.HODNOTOU V POLOZCE 'VYPLACENO KCS' 0748 01 INDEX-TISK PIC 9 VALUE 1. 0749 * INDEX-TISK = ROZLISUJE JESTLI JIZ BYL VYTISTEN PREDCHOZI RADEK 0750 * = 0 BYL TISTEN 0751 * = 1 NEBYL TISTEN 0752 01 PRUBEH-1 PIC 9 VALUE 0. 0753 * JE-LI PRUBEH-1 = 1 PROVEDLO SE JIZ NATAZENI ZPRACOVAVANE VETY DO 0754 * TISKOVEHO RADKU 0755 01 POCET-VET PIC 99 VALUE 0. 0756 * POLE POCET VET UDAVA POCET VET JEDNOHO PRACOVNIKA V SOUBORU 0757 * CISTYCH MEZD 0758 01 PRVNI-CTENI PIC 9 VALUE 1. 0759 * PRVNI-CTENI = 1 - PRO CTENI PRVNI VETY SOUBORU CIST.MEZD 0760 * = 0 - PRO CTENI OSTAT.VET SOUBORU 0761 * = 2 - NASTAVI SE DOSLO-LI KE ZJISTENI KONCE SOUBORU, 0762 * ALE VETY POSLEDNE PRACTENEHO PRACOVNIKA JESTE 0763 * NEBYLY ZPRACOVANY (ZABRANI SE CTENI JIZ JEDNOU 0764 * ZJISTENEHO KONCE SOUBORU) 0765 01 DATUM PIC X(8). 0766 01 WDATUM PIC ZZ.ZZ.ZZ. 0767 01 WDATUM1 PIC ZZ.ZZ.ZZ. 0768 01 LIST PIC Z(5) VALUE 0. 0769 * POLE PRO NACITANI STRANEK 0770 01 WPOL1 PIC Z9,99. 0771 01 WPOL2 PIC ZZ9,99. 0772 01 WPOL11 PIC Z9,9. 0773 01 WPOL21 PIC Z9,9. 0774 01 WB18. 0775 05 W181 PIC Z9. 0776 05 W182 PIC ZZ9. 0777 * WB18 - ROZDELENI POLOZKY CELKOVA DOBA ZAMESTNANI NA ROKY A DNY 0778 01 WPREVOD-DOV PIC Z9,9. 0779 01 POL-DOV PIC 9(4)V9. 0780 01 W817 PIC 9 VALUE 0. 0781 01 W818 PIC 9 VALUE 0. 0782 01 W819 PIC 9 VALUE 0. 0783 01 W820 PIC 9 VALUE 0. 0784 01 W4 PIC 9(6)/9(4). 0785 01 ND-KONEC PIC 9 VALUE 1. 0786 * JE-LI ND-KONEC = 0 NENI V ZADNE VETE ZAZNAMENANA NEMOC 0787 01 ND-VETA PIC 9 VALUE 1. 0788 * JE-LI ND-VETA = 0 NENI V DANE VETE ZADNA NEMOC 0789 01 ND1 PIC 9 VALUE 0. 0790 01 ND2 PIC 9 VALUE 0. 0791 01 ND3 PIC 9 VALUE 0. 0792 * ND1,ND2,ND3 = POLE NA ZJISTENI,KTERA ZE 3 NEMOCI VE VETE JIZ 0793 * BYLA VYTISTENA 0794 01 DNAR. 0795 05 DNAR1 PIC ZZ.ZZ.ZZBB. 0796 05 DNAR2 PIC ZZ.ZZ.ZZBB. 0797 05 DNAR3 PIC ZZ.ZZ.ZZBB. 0798 05 DNAR4 PIC ZZ.ZZ.ZZBB. 0799 05 DNAR5 PIC ZZ.ZZ.ZZBB. 0800 05 DNAR6 PIC ZZ.ZZ.ZZBB. 0801 01 WNARDETI1. 0802 05 WDNAR1 PIC X(6). 0803 05 WDNAR2 PIC X(6). 0804 01 WNARDETI2. 0805 05 WDNAR3 PIC X(6). 0806 05 WDNAR4 PIC X(6). 0807 01 WNARDETI3. 0808 05 WDNAR5 PIC X(6). 0809 05 WDNAR6 PIC X(6). 0810 * DNAR + WDNAR = RADEK PRO TISK DATUMU NAROZENI DETI 0811 01 WDA-VP-OD1. 0812 05 WDDMM1 PIC X(4) VALUE 0. 0813 05 WROK1 PIC XX VALUE 0. 0814 01 WDAT-VP-OD1 REDEFINES WDA-VP-OD1 PIC X(6). 0815 01 WDA-VP-DO1. 0816 05 WDDMM2 PIC X(4) VALUE 0. 0817 05 WROK2 PIC XX VALUE 0. 0818 01 WDAT-VP-DO1 REDEFINES WDA-VP-DO1 PIC X(6). 0819 01 WDA-VP-OD2. 0820 05 WDDMM3 PIC X(4) VALUE 0. 0821 05 WROK3 PIC XX VALUE 0. 0822 01 WDAT-VP-OD2 REDEFINES WDA-VP-OD2 PIC X(6). 0823 01 WDA-VP-DO2. 0824 05 WDDMM4 PIC X(4) VALUE 0. 0825 05 WROK4 PIC XX VALUE 0. 0826 01 WDAT-VP-DO2 REDEFINES WDA-VP-DO2 PIC X(6). 0827 01 RODCIS. 0828 05 WRODCISLO1 PIC X(10). 0829 05 FILLER PIC X. 0830 05 WRODCISLO2 PIC X(10). 0831 05 FILLER PIC X. 0832 05 WRODCISLO3 PIC X(10). 0833 05 FILLER PIC X. 0834 05 WRODCISLO4 PIC X(10). 0835 05 FILLER PIC X. 0836 05 WRODCISLO5 PIC X(10). 0837 05 FILLER PIC X. 0838 05 WRODCISLO6 PIC X(10). 0839 * WDAT-VP-OD1,WDAT-VP-DO1,WDAT-VP-OD2,WDAT-VP-DO2 = POLE PRO 0840 * DATUMY ZACATKU A UKONCENI POBIRANI VYROV.PRISP. 0841 01 WND. 0842 05 W45. 0843 07 W451 PIC XX. 0844 07 W453 PIC X. 0845 07 W452 PIC XXBB. 0846 05 W48 PIC XXBB. 0847 05 W1 PIC ZZ.B. 0848 05 W52. 0849 07 W521 PIC ZZ. 0850 07 W522 PIC XX. 0851 07 W523 PIC ZZ. 0852 07 W524 PIC X. 0853 07 W525 PIC X VALUE SPACES. 0854 05 W63 PIC ZZZ. 0855 05 PIC X(4). 0856 05 W13 PIC ZZZ. 0857 05 PIC XXX. 0858 05 W66-1 PIC ZZZ. 0859 05 W66-2 PIC X. 0860 05 W66-3 PIC ZZZ. 0861 05 W55 PIC ---.---B. 0862 05 W58. 0863 07 W581 PIC XX. 0864 07 W582 PIC X. 0865 07 W583 PIC XXB. 0866 * WND = TISKOVY RADEK PRO NEMOCENSKE DAVKY 0867 01 WTISK1. 0868 05 W8 PIC Z9,9B. 0869 05 W62 PIC Z9,9B. 0870 05 W9 PIC Z9,9B. 0871 05 W11 PIC ZZ9,9B. 0872 05 W10 PIC ZZZ9,9B. 0873 05 W6 PIC ZZ9,9. 0874 05 W7 PIC ZZ.ZZ9B. 0875 05 W41 PIC ZZZ.ZZ9B. 0876 05 W5 PIC Z.ZZ9B. 0877 05 W83 PIC Z.ZZ9B. 0878 05 W73 PIC ZZZ.ZZ9B. 0879 * WTISK1 = TISKOVY RADEK PRO TISK DOVOLENE,ABSENCE,ODPRAC.HODIN, 0880 * DAN.SK.,MZDY NA EV.LISTU ZA JEDNOTLIVE MESIC 0881 01 WTISK2. 0882 05 WW1 PIC Z9B. 0883 05 WW105 PIC ZZZ.ZZ9B. 0884 05 WW36 PIC Z.ZZ9-. 0885 05 WW37 PIC Z.ZZ9-. 0886 05 WW16 PIC ZZ.ZZ9. 0887 05 WW17 PIC ZZ.ZZ9B. 0888 05 WW18 PIC ZZZ.ZZ9. 0889 05 WW19 PIC ZZ.ZZ9B. 0890 05 WW20 PIC ZZZ.ZZ9B. 0891 05 WW81 PIC ZZ.ZZ9-B. 0892 05 WW23 PIC Z.ZZ9-B. 0893 05 WW31 PIC Z.ZZ9-. 0894 05 WW29 PIC ZZ.ZZ9. 0895 05 WW28 PIC ZZ.ZZ9B. 0896 05 WW27 PIC ZZ.ZZ9-B. 0897 05 WW33 PIC Z.ZZ9-B. 0898 05 WW25 PIC Z.ZZ9-B. 0899 05 WW35 PIC ZZ.ZZ9-. 0900 05 WW24 PIC ZZ.ZZ9-. 0901 05 WW34 PIC ZZ9-B. 0902 05 WW42 PIC ZZZ.ZZ9-B. 0903 05 WW43 PIC ZZZ.ZZ9B. 0904 * WTISK2 = TISKOVY RADEK PRO TISK JEDNOTLIVYCH POLOZEK MZDY 0905 * ZA JEDNOTLIV.MESICE 0906 01 T1 PIC ZZZ.ZZ9. 0907 01 T2 PIC ZZZ.ZZ9. 0908 01 T3 PIC ZZ.ZZ9. 0909 01 T4 PIC ZZZ.ZZ9. 0910 01 T5 PIC ZZZ.ZZ9-. 0911 01 T6 PIC ZZZ.ZZ9-. 0912 01 T7 PIC ZZZ.ZZ9-. 0913 01 T8 PIC ZZZ.ZZ9-. 0914 01 T9 PIC ZZ.ZZ9-. 0915 01 T10 PIC ZZ.ZZ9-. 0916 01 T11 PIC ZZZ.ZZ9. 0917 01 T12 PIC ZZZ.ZZ9. 0918 01 T13 PIC ZZ.ZZ9-. 0919 01 T14 PIC ZZ.ZZ9-. 0920 01 T15 PIC ZZ.ZZ9-. 0921 01 T16 PIC Z.ZZ9-. 0922 01 T17 PIC ZZZ.ZZ9-. 0923 01 T18 PIC ZZZ.ZZ9-. 0924 01 T19 PIC ZZ9-. 0925 01 T20 PIC ZZZ.ZZ9-. 0926 01 T21 PIC ZZZ.ZZ9. 0927 * T = POLE PRO TISK SOUCTU NA RADKU 62 A 63 0928 01 TD1 PIC Z(5)9-. 0929 01 TD2 PIC Z(5)9-. 0930 01 TD3 PIC Z(5)9-. 0931 01 TD4 PIC Z(5)9-. 0932 01 TD5 PIC Z(5)9-. 0933 01 TD6 PIC Z(5)9-. 0934 01 TD7 PIC Z(5)9-. 0935 01 TD8 PIC Z(5)9-. 0936 01 TD9 PIC Z(5)9-. 0937 01 TD10 PIC Z(5)9-. 0938 01 TD11 PIC Z(5)9-. 0939 01 TD12 PIC Z(5)9-. 0940 *TD = TISKOVA POLA PRO TISK UPRAVY DANE (RADEK 66) 0941 01 POL1 PIC S99V9 VALUE 0. 0942 01 POL2 PIC S999 VALUE 0. 0943 01 POL3 PIC S9(4)V9 VALUE 0. 0944 01 POL4 PIC S9(4)V9 VALUE 0. 0945 01 POL5 PIC S9(4)V9 VALUE 0. 0946 01 POL6 PIC S9(6) VALUE 0. 0947 01 POL7 PIC S9(6) VALUE 0. 0948 01 POL8 PIC S9(6) VALUE 0. 0949 01 POL81 PIC S9(6) VALUE 0. 0950 01 POLE1 PIC S9(6) VALUE 0. 0951 01 POLE2 PIC S9(6) VALUE 0. 0952 01 POLE3 PIC S9(6) VALUE 0. 0953 01 POLE4 PIC S9(6) VALUE 0. 0954 01 POLE5 PIC S9(6) VALUE 0. 0955 01 POLE6 PIC S9(6) VALUE 0. 0956 01 POLE7 PIC S9(6) VALUE 0. 0957 01 POLE8 PIC S9(6) VALUE 0. 0958 01 POLE9 PIC S9(6) VALUE 0. 0959 01 POLE10 PIC S9(6) VALUE 0. 0960 01 POLE11 PIC S9(6) VALUE 0. 0961 01 POLE12 PIC S9(6) VALUE 0. 0962 01 POLE13 PIC S9(6) VALUE 0. 0963 01 POLE14 PIC S9(6) VALUE 0. 0964 01 POLE15 PIC S9(6) VALUE 0. 0965 01 POLE16 PIC S9(6) VALUE 0. 0966 01 POLE17 PIC S9(6) VALUE 0. 0967 01 POLE18 PIC S9(6) VALUE 0. 0968 01 POLE19 PIC S999 VALUE 0. 0969 01 POLE20 PIC S9(6) VALUE 0. 0970 01 POLE21 PIC S9(6) VALUE 0. 0971 01 POLE22 PIC S9(6) VALUE ZERO. 0972 * SOUCTOVA POLE ZA ROK 0973 01 IND1 PIC 9 VALUE 0. 0974 * JE-LI IND1 = 0 NEBYLA TISTENA PRVNI CAST PRISLUSNEHO RADKU, 0975 * PROTOZE V SOUBORU CISTYCH MEZD NEEXISTUJE VETA PRO DANY MESIC 0976 01 IND2 PIC 9 VALUE 0. 0977 * JE-LI IND2 = 0 NEBYL TISTEN PRISLUS.RADEK, PROTOZE V SOUBORU 0978 * CISTYCH MEZD NEEXISTUJE VETA PRO DANY MESIC 0979 01 WKAL-DNY-PR-NESCHOP PIC 999 VALUE 0. 0980 * SOUCTOVE POLE PRO POCET KALENDAR.DNU PRAC.NESCHOPNOSTI ZA ROK 0981 01 WKAL-DNY-VYR-PRISP1 PIC 999 VALUE 0. 0982 01 WKAL-DNY-VYR-PRISP2 PIC 999 VALUE 0. 0983 * POLE PRO POCET KALENDAR.DNU VYROVNAV.PRISPEVKU V MESICI 0984 * 0985 **************************************************************** 0986 * 0987 * P R O C E D U R E D I V I S I O N 0988 * 0989 **************************************************************** 0990 * 0991 PROCEDURE DIVISION. 0992 OPEN INPUT KSP-JEP CIS-MZDY BRTOP RODCISLA | 0036 0335 0506 0993 OPEN OUTPUT SESTAVA. | 0027 0515 0994 MOVE CURRENT-DATE TO DATUM. | 0765 0995 * 0996 CTENI. 0997 ******* 0998# IF K1-STAV = 0 PERFORM CTI-KSP THRU K1. | 0702 0999# IF K2-STAV = 0 PERFORM CTI-MZDY THRU K2. | 0709 1000 * 1001 POROVNANI-KLICU. 1002 ****************** 1003 IF KL1 < KL2 | 0703 1004 DISPLAY ' ' A001 ' ' A002 ' - PRACOVNIK NENI V SOUB.CIS.MEZD' | 0710 0042 0044 1005 EXHIBIT NAMED K1STR K2STR K1JM K2JM K1-OSCIS K2-OSCIS | 0704 0711 0705 0712 0706 1006 MOVE 0 TO K1-STAV | 0713 1007# GO TO CTENI. | 0702 1008 IF KL1 > KL2 | 0703 1009 DISPLAY ' ' K2-OSCIS ' ' K2JM ' - PRACOVNIK NENI V KSP' | 0710 0713 0712 1010 EXHIBIT NAMED K1STR K2STR K1JM K2JM K1-OSCIS K2-OSCIS | 0704 0711 0705 0712 0706 1011 MOVE 0 TO K2-STAV | 0713 1012# GO TO CTENI. | 0709 1013 * 1014 UKONCENI. 1015 *********** 1016# IF K1-STAV < 2 GO TO ZPRACOVANI. | 0702 1017# IF K2-STAV < 2 GO TO ZPRACOVANI. | 0709 1018 CLOSE KSP-JEP CIS-MZDY BRTOP SESTAVA RODCISLA | 0036 0335 0506 0515 1019 STOP RUN. | 0027 1020 * 1021 ZPRACOVANI. 1022 ************ 1023 MOVE 1 TO PRVNI-01. | 0728 1024 MOVE 0 TO ZACATEK. | 0731 1025 * INDIKATORY ZACATEK A PRVNI-01 SE ZDE NASTAVUJI PRO ZPRACOVANI 1026 * NEMOC.DAVEK = 01 1027 PERFORM 1-16RADEK THRU RADEK65. 1028 MOVE 0 TO K1-STAV K2-STAV. | 0702 0709 1029 GO TO CTENI. 1030 * 1031 * TISK MZDOVEHO LISTU PRACOVNIKA PO JEDNOTLIVYCH RADCICH 1032 * 1033 ******************** RADEK 1 AZ 16 *************************** 1034 * 1035 * DO 1-16. RADKU SE NATAHUJI UDAJE Z POSLEDNI VETY SOUBORU CISTYCH 1036 * MEZD Z DUVODU VYTISTENI NEJNOVEJSICH UDAJU O PRACOVNIKOVI 1037 * 1038 1-16RADEK. 1039 ************** 1040 *RADEK1 1041 STRING 'URCITA FABRIKA - NEKDE ' SPACES 96 'DNE: ' 1042 DATUM INTO TISK | 0765 1043 WRITE RADEK BEFORE 1. | 0518 0516 1044 *RADEK2 1045 ADD 1 TO LIST 1046 STRING 'SESTAVA: Z62553' SPACES 104 'STRANA: ' | 0768 1047 LIST INTO TISK | 0768 1048 WRITE RADEK BEFORE 1. | 0518 0516 1049 * VYPOCET ZUSTATKU DOVOLENE Z MINULEHO ROKU 1050 MOVE 1 TO I. | 0723 1051 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1052 PERFORM DOVOL-PREVOD THRU X. 1053 *RADEK3 1054 MOVE POCET-VET TO I | 0755 1055 MOVE VETA-MZDY (I) TO WPRAC | 0723 0528 0723 1056 MOVE A004 TO W4. | 0534 0048 0784 1057 STRING 'M Z D O V Y L I S T PRO ROK: ' WRR ' ' A002 | 0538 1058 ' OS.CIS. ' A001 ' ROD.CIS. ' W4 ' STRED. ' A098 | 0044 0042 0784 1059 ' CIS.VYPLAT. ' A717 SPACES 1 INTO TISK | 0080 0273 1060 WRITE RADEK BEFORE 2. | 0518 0516 1061 *RADEK5 1062 MOVE A102 TO WDATUM. | 0088 0766 1063 STRING SPACES 54 'NARODNOST: ' A005 ' RODIN.STAV: ' A007 | 0050 1064 ' DRUH PRAC.POM.:' A110 ' DATUM VZNIKU PR.POMERU:' | 0054 0104 1065 WDATUM INTO TISK | 0766 1066 WRITE RADEK BEFORE 1. | 0518 0516 1067 MOVE 0 TO WDATUM. | 0766 1068 *RADEK6 1069 MOVE A107 TO WDATUM | 0098 1070 MOVE A108 TO WDATUM1 | 0766 0100 1071 STRING 'JMENOVANI - PREVODY:' SPACES 34 | 0767 1072 'VYNETI Z EVID.STAVU: DATUM-' WDATUM ' UKONCENI-' WDATUM1 | 0766 1073 ' DUVOD-' A109 ' DR.DUCHODU: ' A011 INTO TISK | 0767 0102 0062 1074 WRITE RADEK BEFORE 1. | 0518 0516 1075 MOVE 0 TO WDATUM WDATUM1. | 0766 0767 1076 *RADEK7 1077 MOVE A105 TO WDATUM | 0094 1078 MOVE A111 TO WPOL11 | 0766 0106 1079 STRING SPACES 54 'DATUM UKONC. PRAC.POMERU: ' WDATUM | 0772 1080 ' TYDENNI ZAKONNY UVAZEK : ' WPOL11 SPACES 12 INTO TISK | 0766 0772 1081 WRITE RADEK BEFORE 1. | 0518 0516 1082 *RADEK8 POCET VYZIV.OSOB PRO DAN = VYZIV.OSOBY VE SPOL.DOMAC.+ 1083 * +MIMO SPOLEC.DOMAC.+INVALID.+NEVIDOMY 1084 * POCET VYZIV.OSOB INVALIDNICH = INVALID+NEVIDOMY 1085 MOVE A209 TO WDATUM | 0145 1086 STRING 'DATUM: ' WDATUM ' KATEG.:' A100 ' STUPEN PRAC. ' | 0766 0766 0084 1087 'TRIDY: ' A701 ' RODNE PRIJMENI ' A003 | 0241 1088 ' ' SPACES 23 INTO TISK | 0046 1089 WRITE RADEK BEFORE 1. | 0518 0516 1090 MOVE 0 TO WDATUM. | 0766 1091 *RADEK9 1092 STRING 'STUPEN KVAL. TRIDY: ' ' KRIVKA: ' A702 1093 ' NAZ.FUNKCE: ' A210 ' PLAT: ' A218 | 0243 0147 1094 SPACES 46 INTO TISK | 0161 1095 WRITE RADEK BEFORE 1. | 0518 0516 1096 MOVE 0 TO W182. | 0776 1097 *RADEK10 1098 MOVE A706 TO WPOL1 | 0251 1099 MOVE A708 TO WPOL2 | 0770 0255 1100 STRING SPACES 54 'BYDLISTE:' A013 'ULICE:' A014 'PSC:' A015 | 0771 0066 0068 1101 INTO TISK | 0070 1102 WRITE RADEK BEFORE 1. | 0518 0516 1103 *RADEK12 1104 STRING 'PRIDAVKY NA DETI:' SPACES 57 'NEMOCENSKE DAVKY:' 1105 SPACES 41 INTO TISK 1106 WRITE RADEK BEFORE 1. | 0518 0516 1107 *RADEK13 1108 STRING 'POCET DETI S NAROK.NA PND: ' A705 ' POCET INVAL. ' | 0249 1109 'DETI: ' A710 SPACES 81 | 0259 1110 INTO TISK 1111 WRITE RADEK BEFORE 1. | 0518 0516 1112 *RADEK14 1113 STRING 'DATE NAROZENI JEDNOTL.DETI:' SPACES 46 1114 'OD DEN DRUH MES VYPLA P O C E ' 1115 'T DENNE VYPLAC SCHOP.' INTO TISK 1116 WRITE RADEK BEFORE 1. | 0518 0516 1117 *RADEK15 1118 MOVE A722 TO WNARDETI1. | 0283 0801 1119 MOVE A723 TO WNARDETI2. | 0285 0804 1120 MOVE A724 TO WNARDETI3. | 0287 0807 1121 MOVE WDNAR1 TO DNAR1 | 0802 1122 MOVE WDNAR2 TO DNAR2 | 0795 0803 1123 MOVE WDNAR3 TO DNAR3 | 0796 0805 1124 MOVE WDNAR4 TO DNAR4 | 0797 0806 1125 MOVE WDNAR5 TO DNAR5 | 0798 0808 1126 MOVE WDNAR6 TO DNAR6. | 0799 0809 0800 1127 STRING ' ' DNAR SPACE 12 | 0794 1128 'MESIC N.D. VYPL OD-DO PR.DNU KAL.DNU NP/VP KCS DEN-MES' 1129 INTO TISK 1130 WRITE RADEK BEFORE 1. | 0518 0516 1131 MOVE 0 TO DNAR WNARDETI1 WNARDETI2 WNARDETI3. | 0794 0801 0804 0807 1132 *RADEK16 1133 STRING ' RODNA CISLA DETI PRO ODPOCET DANE' SPACE 117 1134 INTO TISK 1135 WRITE RADEK BEFORE 1. | 0518 0516 1136 MOVE A001 TO AK. | 0042 0526 1137 READ RODCISLA INVALID KEY | 0027 1138# DISPLAY 'OS.CISLO' A001 'NENALEZENO' GO TO JH. | 0042 1139 MOVE RODCISLO1 TO WRODCISLO1 | 0030 1140 IF RODCISLO1 = 0 | 0828 0030 1141# EXAMINE WRODCISLO1 REPLACING ALL ZERO BY SPACE. | 0828 1142 MOVE RODCISLO2 TO WRODCISLO2 | 0031 1143 IF RODCISLO2 = 0 | 0830 0031 1144# EXAMINE WRODCISLO2 REPLACING ALL ZERO BY SPACE. | 0830 1145 MOVE RODCISLO3 TO WRODCISLO3 | 0032 1146 IF RODCISLO3 = 0 | 0832 0032 1147# EXAMINE WRODCISLO3 REPLACING ALL ZERO BY SPACE. | 0832 1148 MOVE RODCISLO4 TO WRODCISLO4 | 0033 1149 IF RODCISLO4 = 0 | 0834 0033 1150# EXAMINE WRODCISLO4 REPLACING ALL ZERO BY SPACE. | 0834 1151 MOVE RODCISLO5 TO WRODCISLO5 | 0034 1152 IF RODCISLO5 = 0 | 0836 0034 1153# EXAMINE WRODCISLO5 REPLACING ALL ZERO BY SPACE. | 0836 1154 MOVE RODCISLO6 TO WRODCISLO6. | 0035 0838 1155 IF RODCISLO6 = 0 | 0035 1156# EXAMINE WRODCISLO6 REPLACING ALL ZERO BY SPACE. | 0838 1157 JH. STRING ' ' RODCIS SPACES 81 INTO TISK | 0827 1158 WRITE RADEK BEFORE 1. | 0518 0516 1159 MOVE SPACE TO TISK. | 0518 1160 MOVE 0 TO RODCIS. | 0827 1161 MOVE SPACE TO WRODCISLO1 WRODCISLO2 WRODCISLO3 WRODCISLO4 | 0828 0830 0832 1162 WRODCISLO5 WRODCISLO6. | 0834 0836 0838 1163 MOVE 0 TO I. | 0723 1164 * 1165 ****************** R A D E K 17 AZ 36 ***************** 1166 * 1167 * V DRUHE CASTI RADKU 17 AZ 36 SE TISKNOU NEMOCENSKE DAVKY. 1168 * PROVADI SE ZDE TESTY, ZDA V NEKTERE Z MOZNYCH 12TI VET CISTYCH 1169 * MEZD PRAVE ZPRACOVAVANEHO PRACOVNIKA JE ZAZNAMENANA NEMOC. 1170 * - NENI-LI V ZADNE VETE CIS.MEZD PRAVE ZPRACOVAVANEHO PRACOVNIKA 1171 * NEMOC ZAZNAMENANA ( POLE ND-KONEC = 0 ), VYNECHAVAJI SE 1172 * DALSI TESTY NA NEMOC.DAVKY A SKACE SE PRIMO NA PARAGRAF, KDE 1173 * SE PLNI ZBYVAJICI CAST RADKU. 1174 * - JE-LI VE ZPRACOVAVANE VETE NEMOC ZAZNAMENANA, POLE ND-VETA = 1 1175 * NENI-LI V DANE VETE NEMOC ZAZNAMENANA NEBO JIZ BYLY VYTISTENY 1176 * VSECHNY NEMOCI VE VETE, POLE ND-VETA = 0. 1177 * - DALE SE ZDE TESTUJE ZDA VE ZPRACOVAVENE VETE JSOU UVEDENY 1178 * 1,2 NEBO 3 NEMOCI. KAZDA NEMOC JE TISTENA NA SAMOSTATNY RADEK. 1179 * POLE ND1,ND2 A ND3 NAM UMOZNI ZJISTIT, KTERA ZE 3 MOZNYCH 1180 * NEMOCI VE ZPRACOVAVANE VETE JIZ BYLA VYTISTENA. 1181 * - JE-LI NEMOC.DAVKA = 01,05,07,08,09,10,11,14 ZPRACOVAVA SE 1182 * ZPUSOBEM VYPSANYM V CASTI PRENOS NEMOC.DAVEK. 1183 * 1184 RADEK17. 1185 ********* 1186 ADD 1 TO I. | 0723 1187 IF I > POCET-VET MOVE 0 TO ND-KONEC | 0723 0755 1188# GO TO PLNENI17. | 0785 1189 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1190 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1191 SPACES BY ZERO. 1192# IF WDRUH-ND1 = ZERO GO TO RADEK17. | 0589 1193 PERFORM ND1 THRU ND1X. 1194 PLNENI17. 1195# IF INDEX-01 NOT = 1 GO TO 17-3. | 0726 1196# IF WDRUH-ND2 = 01 GO TO 17-2. | 0590 1197 17-ZAC. 1198 MOVE 0 TO INDEX-01. | 0726 1199 IF ( W581 NOT = SPACE ) AND ( ZACATEK = 1 ) | 0863 0731 1200 MOVE 0 TO ZACATEK 1201 MOVE 0 TO W521 | 0731 1202 MOVE ' -' TO W522 | 0849 1203 MOVE WDO1 TO W523 | 0850 0595 1204 MOVE WPS-DD1 TO W581 | 0851 0607 1205 MOVE '.' TO W582 | 0863 1206 MOVE WPS-MM1 TO W583 | 0864 0608 1207# GO TO 17-KON. | 0865 1208 IF ( W581 NOT = SPACE ) AND ( ZACATEK = 0 ) | 0863 0731 1209 MOVE 1 TO PRVNI-01 1210# GO TO 17-KON. | 0728 1211 IF ( W581 = SPACE ) AND ( ZACATEK = 1 ) | 0863 0731 1212 MOVE SPACE TO W522 W524 W581 W582 W583 | 0850 0852 0863 0864 1213 MOVE 0 TO W521 W523 | 0865 0849 1214# GO TO 17-KON. | 0851 1215 IF ( W581 = SPACE ) AND ( ZACATEK = 0 ) | 0863 0731 1216 MOVE 1 TO ZACATEK 1217 MOVE SPACE TO W581 W582 W583 W524 | 0731 0863 0864 0865 1218# MOVE 0 TO W523. | 0852 0851 1219 17-KON. EXIT. 1220 17-1. GO TO 17-3. 1221 17-2. MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 1222 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1223 PERFORM 17-ZAC THRU 17-KON | 0736 1224 IF WDRUH-ND2 = ZERO GO TO 17-3 ELSE | 0590 1225 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1226# GO TO 17-3. | 0734 1227 PERFORM ND2 THRU ND2X. 1228# IF WDRUH-ND3 = 01 GO TO 17-4. | 0591 1229 MOVE WPS-DD2 TO WPS-DD1 | 0610 1230 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1231 MOVE WDO2 TO WDO1 | 0608 0598 1232 PERFORM 17-ZAC THRU 17-KON. | 0595 1233 GO TO 17-3. 1234 17-4. MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 1235 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1236 PERFORM 17-ZAC THRU 17-KON | 0736 1237 IF WDRUH-ND3 = ZERO GO TO 17-3 ELSE | 0591 1238 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1239# GO TO 17-3. | 0734 1240 PERFORM ND3 THRU ND3X. 1241 MOVE WPS-DD3 TO WPS-DD1 | 0613 1242 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 1243 MOVE WDO3 TO WDO1 | 0608 0601 1244 PERFORM 17-ZAC THRU 17-KON. | 0595 1245 17-3. 1246 MOVE 1 TO INDEX-TISK. | 0748 1247 IF ND-KONEC = 1 | 0785 1248# STRING SPACES 75 WND INTO TISK GO TO W1. | 0841 0518 1249 STRING SPACES 132 INTO TISK. | 0518 1250# W1. IF INDEX-05 = 1 GO TO RADEK18. | 0739 1251 WRITE RADEK BEFORE 1. | 0516 1252 * 1253 RADEK18. 1254 ********* 1255# IF ND-KONEC = 0 GO TO PLNENI18. | 0785 1256# IF ND1 = 1 GO TO 18-2. | 0789 1257 IF WDRUH-ND1 NOT = ZERO PERFORM ND1 THRU ND1X | 0589 1258# GO TO PLNENI18. 1259 MOVE 0 TO ND-VETA 1260 GO TO CYKL-RADEK18. | 0787 1261# 18-2.IF ND2 = 1 GO TO 18-3. | 0790 1262 IF WDRUH-ND2 NOT = ZERO PERFORM ND2 THRU ND2X | 0590 1263# GO TO PLNENI18. 1264 MOVE 0 TO ND-VETA 1265 GO TO CYKL-RADEK18. | 0787 1266# 18-3.IF ND3 = 1 MOVE 0 TO ND-VETA GO TO CYKL-RADEK18. | 0791 0787 1267 IF WDRUH-ND3 NOT = ZERO PERFORM ND3 THRU ND3X | 0591 1268# GO TO PLNENI18. 1269 MOVE 0 TO ND-VETA. | 0787 1270 CYKL-RADEK18. 1271# IF ND-VETA = 1 GO TO PLNENI18. | 0787 1272 MOVE 1 TO ND-VETA. | 0787 1273 ADD 1 TO I 1274 IF I > POCET-VET MOVE 0 TO ND-KONEC | 0723 0723 0755 1275 MOVE 0 TO ND1 ND2 ND3 | 0785 0789 0790 1276 IF INDEX-05 = 1 MOVE 3 TO INDEX-05 GO TO PLNENI18 | 0791 0739 0739 1277# ELSE GO TO PLNENI18. 1278 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1279 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1280 SPACES BY ZERO. 1281 MOVE 0 TO ND1 ND2 ND3. | 0789 0790 0791 1282 GO TO RADEK18. 1283 PLNENI18. 1284# IF INDEX-01 NOT = 1 GO TO 18-4. | 0726 1285# IF WDRUH-ND2 = 01 GO TO 18-5. | 0590 1286 PERFORM 17-ZAC THRU 17-KON. 1287 GO TO 18-4. 1288# 18-5. IF ND2 = 1 GO TO 18-6. | 0790 1289 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 1290 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1291 PERFORM 17-ZAC THRU 17-KON | 0736 1292 IF WDRUH-ND2 = 0 GO TO 18-4 ELSE | 0590 1293 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1294# GO TO 18-4. | 0734 1295 PERFORM ND2 THRU ND2X. 1296# IF WDRUH-ND3 = 01 GO TO 18-6. | 0591 1297 MOVE WPS-DD2 TO WPS-DD1 | 0610 1298 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1299 MOVE WDO2 TO WDO1 | 0608 0598 1300 PERFORM 17-ZAC THRU 17-KON. | 0595 1301 GO TO 18-4. 1302 18-6. IF WDRUH-ND3 NOT = 01 | 0591 1303 MOVE WPS-DD2 TO WPS-DD1 | 0610 1304 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1305 MOVE WDO2 TO WDO1 | 0608 0598 1306 PERFORM 17-ZAC THRU 17-KON | 0595 1307# GO TO 18-4. 1308 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 1309 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1310 PERFORM 17-ZAC THRU 17-KON | 0736 1311 IF WDRUH-ND3 = 0 GO TO 18-4 ELSE | 0591 1312 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1313# GO TO 18-4. | 0734 1314 PERFORM ND3 THRU ND3X. 1315 MOVE WPS-DD3 TO WPS-DD1 | 0613 1316 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 1317 MOVE WDO3 TO WDO1 | 0608 0601 1318 PERFORM 17-ZAC THRU 17-KON. | 0595 1319 18-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1320 STRING SPACES 75 WND SPACE 10 INTO TISK | 0841 1321 PERFORM W1 | 0518 1322 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1323# GO TO RADEK18. | 0748 1324 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1325 PERFORM W1 1326 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1327# GO TO RADEK18. | 0748 1328 MOVE 1 TO INDEX-TISK. | 0748 1329 IF ND-KONEC = 0 | 0785 1330# STRING SPACES 152 INTO TISK GO TO W2. | 0518 1331 STRING SPACES 75 WND SPACE 10 INTO TISK. | 0841 0518 1332# W2. IF INDEX-05 = 1 GO TO RADEK19. | 0739 1333 WRITE RADEK BEFORE 1. | 0516 1334 * 1335 RADEK19. 1336 ********* 1337# IF ND-KONEC = 0 GO TO PLNENI19. | 0785 1338# IF ND1 = 1 GO TO 19-2. | 0789 1339 IF WDRUH-ND1 NOT = ZERO PERFORM ND1 THRU ND1X | 0589 1340# GO TO PLNENI19. 1341 MOVE 0 TO ND-VETA 1342 GO TO CYKL-RADEK19. | 0787 1343# 19-2.IF ND2 = 1 GO TO 19-3. | 0790 1344 IF WDRUH-ND2 NOT = ZERO PERFORM ND2 THRU ND2X | 0590 1345# GO TO PLNENI19. 1346 MOVE 0 TO ND-VETA 1347 GO TO CYKL-RADEK19. | 0787 1348# 19-3.IF ND3 = 1 MOVE 0 TO ND-VETA GO TO CYKL-RADEK19. | 0791 0787 1349 IF WDRUH-ND3 NOT = ZERO PERFORM ND3 THRU ND3X | 0591 1350# GO TO PLNENI19. 1351 MOVE 0 TO ND-VETA. | 0787 1352 CYKL-RADEK19. 1353# IF ND-VETA = 1 GO TO PLNENI19. | 0787 1354 MOVE 1 TO ND-VETA. | 0787 1355 ADD 1 TO I 1356 IF I > POCET-VET MOVE 0 TO ND-KONEC | 0723 0723 0755 1357 MOVE 0 TO ND1 ND2 ND3 | 0785 0789 0790 1358 IF INDEX-05 = 1 MOVE 3 TO INDEX-05 GO TO PLNENI19 | 0791 0739 0739 1359# ELSE GO TO PLNENI19. 1360 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1361 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1362 SPACES BY ZERO. 1363 MOVE 0 TO ND1 ND2 ND3. | 0789 0790 0791 1364 GO TO RADEK19. 1365 PLNENI19. 1366# IF INDEX-01 NOT = 1 GO TO 19-4. | 0726 1367# IF WDRUH-ND2 = 01 GO TO 19-5. | 0590 1368 PERFORM 17-ZAC THRU 17-KON. 1369 GO TO 19-4. 1370# 19-5. IF ND2 = 1 GO TO 19-6. | 0790 1371 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 1372 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1373 PERFORM 17-ZAC THRU 17-KON | 0736 1374 IF WDRUH-ND2 = 0 GO TO 19-4 ELSE | 0590 1375 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1376# GO TO 19-4. | 0734 1377 PERFORM ND2 THRU ND2X. 1378# IF WDRUH-ND3 = 01 GO TO 19-6. | 0591 1379 MOVE WPS-DD2 TO WPS-DD1 | 0610 1380 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1381 MOVE WDO2 TO WDO1 | 0608 0598 1382 PERFORM 17-ZAC THRU 17-KON. | 0595 1383 GO TO 19-4. 1384 19-6. IF WDRUH-ND3 NOT = 01 | 0591 1385 MOVE WPS-DD2 TO WPS-DD1 | 0610 1386 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1387 MOVE WDO2 TO WDO1 | 0608 0598 1388 PERFORM 17-ZAC THRU 17-KON | 0595 1389# GO TO 19-4. 1390 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 1391 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1392 PERFORM 17-ZAC THRU 17-KON | 0736 1393 IF WDRUH-ND3 = 0 GO TO 19-4 ELSE | 0591 1394 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1395# GO TO 19-4. | 0734 1396 PERFORM ND3 THRU ND3X. 1397 MOVE WPS-DD3 TO WPS-DD1 | 0613 1398 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 1399 MOVE WDO3 TO WDO1 | 0608 0601 1400 PERFORM 17-ZAC THRU 17-KON. | 0595 1401 19-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1402 STRING SPACES 75 WND SPACE 10 INTO TISK | 0841 1403 WRITE RADEK BEFORE 1 | 0518 0516 1404 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1405# GO TO RADEK19. | 0748 1406 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1407 WRITE RADEK BEFORE 1 | 0516 1408 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1409# GO TO RADEK19. | 0748 1410 MOVE 1 TO INDEX-TISK. | 0748 1411 MOVE A114 TO WPOL21 | 0114 1412 IF ND-KONEC = 1 | 0773 0785 1413 STRING 'DOVOLENA - PREVOD Z MINUL.ROKU: ' WPREVOD-DOV 1414 SPACES 2 'NAROK NA DOVOLENOU: ' WPOL21 SPACES 13 WND | 0778 0773 1415# SPACE 10 INTO TISK GO TO W3. | 0841 0518 1416 STRING 'DOVOLENA - PREVOD Z MINUL.ROKU: ' WPREVOD-DOV 1417 SPACES 2 'NAROK NA DOVOLENOU: ' WPOL21 SPACES 90 INTO TISK. | 0778 0773 0518 1418# W3. IF INDEX-05 = 1 GO TO RADEK20. | 0739 1419 WRITE RADEK BEFORE 1 | 0516 1420 MOVE 0 TO WPREVOD-DOV. | 0778 1421 * 1422 RADEK20. 1423 ********* 1424# IF ND-KONEC = 0 GO TO PLNENI20. | 0785 1425# IF ND1 = 1 GO TO 20-2. | 0789 1426 IF WDRUH-ND1 NOT = ZERO PERFORM ND1 THRU ND1X | 0589 1427# GO TO PLNENI20. 1428 MOVE 0 TO ND-VETA 1429 GO TO CYKL-RADEK20. | 0787 1430# 20-2.IF ND2 = 1 GO TO 20-3. | 0790 1431 IF WDRUH-ND2 NOT = ZERO PERFORM ND2 THRU ND2X | 0590 1432# GO TO PLNENI20. 1433 MOVE 0 TO ND-VETA 1434 GO TO CYKL-RADEK20. | 0787 1435# 20-3.IF ND3 = 1 MOVE 0 TO ND-VETA GO TO CYKL-RADEK20. | 0791 0787 1436 IF WDRUH-ND3 NOT = ZERO PERFORM ND3 THRU ND3X | 0591 1437# GO TO PLNENI20. 1438 MOVE 0 TO ND-VETA. | 0787 1439 CYKL-RADEK20. 1440# IF ND-VETA = 1 GO TO PLNENI20. | 0787 1441 MOVE 1 TO ND-VETA. | 0787 1442 ADD 1 TO I 1443 IF I > POCET-VET MOVE 0 TO ND-KONEC | 0723 0723 0755 1444 MOVE 0 TO ND1 ND2 ND3 | 0785 0789 0790 1445 IF INDEX-05 = 1 MOVE 3 TO INDEX-05 GO TO PLNENI20 | 0791 0739 0739 1446# ELSE GO TO PLNENI20. 1447 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1448 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1449 SPACES BY ZERO. 1450 MOVE 0 TO ND1 ND2 ND3. | 0789 0790 0791 1451 GO TO RADEK20. 1452 PLNENI20. 1453# IF INDEX-01 NOT = 1 GO TO 20-4. | 0726 1454# IF WDRUH-ND2 = 01 GO TO 20-5. | 0590 1455 PERFORM 17-ZAC THRU 17-KON. 1456 GO TO 20-4. 1457# 20-5. IF ND2 = 1 GO TO 20-6. | 0790 1458 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 1459 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1460 PERFORM 17-ZAC THRU 17-KON | 0736 1461 IF WDRUH-ND2 = 0 GO TO 20-4 ELSE | 0590 1462 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1463# GO TO 20-4. | 0734 1464 PERFORM ND2 THRU ND2X. 1465# IF WDRUH-ND3 = 01 GO TO 20-6. | 0591 1466 MOVE WPS-DD2 TO WPS-DD1 | 0610 1467 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1468 MOVE WDO2 TO WDO1 | 0608 0598 1469 PERFORM 17-ZAC THRU 17-KON. | 0595 1470 GO TO 20-4. 1471 20-6. IF WDRUH-ND3 NOT = 01 | 0591 1472 MOVE WPS-DD2 TO WPS-DD1 | 0610 1473 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1474 MOVE WDO2 TO WDO1 | 0608 0598 1475 PERFORM 17-ZAC THRU 17-KON | 0595 1476# GO TO 20-4. 1477 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 1478 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1479 PERFORM 17-ZAC THRU 17-KON | 0736 1480 IF WDRUH-ND3 = 0 GO TO 20-4 ELSE | 0591 1481 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1482# GO TO 20-4. | 0734 1483 PERFORM ND3 THRU ND3X. 1484 MOVE WPS-DD3 TO WPS-DD1 | 0613 1485 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 1486 MOVE WDO3 TO WDO1 | 0608 0601 1487 PERFORM 17-ZAC THRU 17-KON. | 0595 1488 20-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1489 STRING 'DOVOLENA - PREVOD Z MINUL.ROKU: ' WPREVOD-DOV 1490 SPACES 2 'NAROK NA DOVOLENOU: ' WPOL21 SPACES 13 WND | 0778 0773 1491 SPACE 10 INTO TISK | 0841 1492 PERFORM W3 | 0518 1493 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1494# GO TO RADEK20. | 0748 1495 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1496 PERFORM W3 1497 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1498# GO TO RADEK20. | 0748 1499 MOVE 1 TO INDEX-TISK. | 0748 1500 IF ND-KONEC = 0 | 0785 1501# STRING SPACES 152 INTO TISK GO TO W4. | 0518 1502 STRING SPACES 75 WND SPACE 10 INTO TISK. | 0841 0518 1503# W4. IF INDEX-05 = 1 GO TO RADEK21. | 0739 1504 WRITE RADEK BEFORE 1. | 0516 1505 * 1506 RADEK21. 1507 ********* 1508# IF ND-KONEC = 0 GO TO PLNENI21. | 0785 1509# IF ND1 = 1 GO TO 21-2. | 0789 1510 IF WDRUH-ND1 NOT = ZERO PERFORM ND1 THRU ND1X | 0589 1511# GO TO PLNENI21. 1512 MOVE 0 TO ND-VETA 1513 GO TO CYKL-RADEK21. | 0787 1514# 21-2.IF ND2 = 1 GO TO 21-3. | 0790 1515 IF WDRUH-ND2 NOT = ZERO PERFORM ND2 THRU ND2X | 0590 1516# GO TO PLNENI21. 1517 MOVE 0 TO ND-VETA 1518 GO TO CYKL-RADEK21. | 0787 1519# 21-3.IF ND3 = 1 MOVE 0 TO ND-VETA GO TO CYKL-RADEK21. | 0791 0787 1520 IF WDRUH-ND3 NOT = ZERO PERFORM ND3 THRU ND3X | 0591 1521# GO TO PLNENI21. 1522 MOVE 0 TO ND-VETA. | 0787 1523 CYKL-RADEK21. 1524# IF ND-VETA = 1 GO TO PLNENI21. | 0787 1525 MOVE 1 TO ND-VETA. | 0787 1526 ADD 1 TO I 1527 IF I > POCET-VET MOVE 0 TO ND-KONEC | 0723 0723 0755 1528 MOVE 0 TO ND1 ND2 ND3 | 0785 0789 0790 1529 IF INDEX-05 = 1 MOVE 3 TO INDEX-05 GO TO PLNENI21 | 0791 0739 0739 1530# ELSE GO TO PLNENI21. 1531 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1532 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1533 SPACES BY ZERO. 1534 MOVE 0 TO ND1 ND2 ND3. | 0789 0790 0791 1535 GO TO RADEK21. 1536 PLNENI21. 1537# IF INDEX-01 NOT = 1 GO TO 21-4. | 0726 1538# IF WDRUH-ND2 = 01 GO TO 21-5. | 0590 1539 PERFORM 17-ZAC THRU 17-KON. 1540 GO TO 21-4. 1541# 21-5. IF ND2 = 1 GO TO 21-6. | 0790 1542 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 1543 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1544 PERFORM 17-ZAC THRU 17-KON | 0736 1545 IF WDRUH-ND2 = 0 GO TO 21-4 ELSE | 0590 1546 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1547# GO TO 21-4. | 0734 1548 PERFORM ND2 THRU ND2X. 1549# IF WDRUH-ND3 = 01 GO TO 21-6. | 0591 1550 MOVE WPS-DD2 TO WPS-DD1 | 0610 1551 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1552 MOVE WDO2 TO WDO1 | 0608 0598 1553 PERFORM 17-ZAC THRU 17-KON. | 0595 1554 GO TO 21-4. 1555 21-6. IF WDRUH-ND3 NOT = 01 | 0591 1556 MOVE WPS-DD2 TO WPS-DD1 | 0610 1557 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1558 MOVE WDO2 TO WDO1 | 0608 0598 1559 PERFORM 17-ZAC THRU 17-KON | 0595 1560# GO TO 21-4. 1561 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 1562 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1563 PERFORM 17-ZAC THRU 17-KON | 0736 1564 IF WDRUH-ND3 = 0 GO TO 21-4 ELSE | 0591 1565 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1566# GO TO 21-4. | 0734 1567 PERFORM ND3 THRU ND3X. 1568 MOVE WPS-DD3 TO WPS-DD1 | 0613 1569 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 1570 MOVE WDO3 TO WDO1 | 0608 0601 1571 PERFORM 17-ZAC THRU 17-KON. | 0595 1572 21-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1573 STRING SPACES 75 WND SPACE 10 INTO TISK | 0841 1574 WRITE RADEK BEFORE 1 | 0518 0516 1575 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1576# GO TO RADEK21. | 0748 1577 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1578 WRITE RADEK BEFORE 1 | 0516 1579 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1580# GO TO RADEK21. | 0748 1581 MOVE 1 TO INDEX-TISK. | 0748 1582 IF ND-KONEC = 1 | 0785 1583 STRING 'D O V O L E N A NEPLA. ODPR. Z TOHO JEDN.DANOV.' 1584 ' ZVL. DOZ. MZDA ' SPACE 6 WND SPACE 10 | 0841 1585# INTO TISK GO TO W5. | 0518 1586 STRING 'D O V O L E N A NEPLA. ODPR. Z TOHO JEDN.DANOV.' 1587 ' ZVL. DOZ. MZDA ' SPACES 107 INTO TISK. | 0518 1588# W5. IF INDEX-05 = 1 GO TO RADEK22. | 0739 1589 WRITE RADEK BEFORE 1. | 0516 1590 * 1591 RADEK22. 1592 ********* 1593# IF ND-KONEC = 0 GO TO PLNENI22. | 0785 1594# IF ND1 = 1 GO TO 22-2. | 0789 1595 IF WDRUH-ND1 NOT = ZERO PERFORM ND1 THRU ND1X | 0589 1596# GO TO PLNENI22. 1597 MOVE 0 TO ND-VETA 1598 GO TO CYKL-RADEK22. | 0787 1599# 22-2.IF ND2 = 1 GO TO 22-3. | 0790 1600 IF WDRUH-ND2 NOT = ZERO PERFORM ND2 THRU ND2X | 0590 1601# GO TO PLNENI22. 1602 MOVE 0 TO ND-VETA 1603 GO TO CYKL-RADEK22. | 0787 1604# 22-3.IF ND3 = 1 MOVE 0 TO ND-VETA GO TO CYKL-RADEK22. | 0791 0787 1605 IF WDRUH-ND3 NOT = ZERO PERFORM ND3 THRU ND3X | 0591 1606# GO TO PLNENI22. 1607 MOVE 0 TO ND-VETA. | 0787 1608 CYKL-RADEK22. 1609# IF ND-VETA = 1 GO TO PLNENI22. | 0787 1610 MOVE 1 TO ND-VETA. | 0787 1611 ADD 1 TO I 1612 IF I > POCET-VET MOVE 0 TO ND-KONEC | 0723 0723 0755 1613 MOVE 0 TO ND1 ND2 ND3 | 0785 0789 0790 1614 IF INDEX-05 = 1 MOVE 3 TO INDEX-05 GO TO PLNENI22 | 0791 0739 0739 1615# ELSE GO TO PLNENI22. 1616 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1617 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1618 SPACES BY ZERO. 1619 MOVE 0 TO ND1 ND2 ND3. | 0789 0790 0791 1620 GO TO RADEK22. 1621 PLNENI22. 1622# IF INDEX-01 NOT = 1 GO TO 22-4. | 0726 1623# IF WDRUH-ND2 = 01 GO TO 22-5. | 0590 1624 PERFORM 17-ZAC THRU 17-KON. 1625 GO TO 22-4. 1626# 22-5. IF ND2 = 1 GO TO 22-6. | 0790 1627 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 1628 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1629 PERFORM 17-ZAC THRU 17-KON | 0736 1630 IF WDRUH-ND2 = 0 GO TO 22-4 ELSE | 0590 1631 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1632# GO TO 22-4. | 0734 1633 PERFORM ND2 THRU ND2X. 1634# IF WDRUH-ND3 = 01 GO TO 22-6. | 0591 1635 MOVE WPS-DD2 TO WPS-DD1 | 0610 1636 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1637 MOVE WDO2 TO WDO1 | 0608 0598 1638 PERFORM 17-ZAC THRU 17-KON. | 0595 1639 GO TO 22-4. 1640 22-6. IF WDRUH-ND3 NOT = 01 | 0591 1641 MOVE WPS-DD2 TO WPS-DD1 | 0610 1642 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1643 MOVE WDO2 TO WDO1 | 0608 0598 1644 PERFORM 17-ZAC THRU 17-KON | 0595 1645# GO TO 22-4. 1646 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 1647 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1648 PERFORM 17-ZAC THRU 17-KON | 0736 1649 IF WDRUH-ND3 = 0 GO TO 22-4 ELSE | 0591 1650 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1651# GO TO 22-4. | 0734 1652 PERFORM ND3 THRU ND3X. 1653 MOVE WPS-DD3 TO WPS-DD1 | 0613 1654 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 1655 MOVE WDO3 TO WDO1 | 0608 0601 1656 PERFORM 17-ZAC THRU 17-KON. | 0595 1657 22-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1658 STRING ' D O V O L E N A NEPLA- ODPR. Z TOHO JED.DANOV.' 1659 ' ZVL DOZ. MZDA ' SPACE 6 WND SPACE 10 INTO TISK | 0841 1660 WRITE RADEK BEFORE 1 | 0518 0516 1661 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1662# GO TO RADEK22. | 0748 1663 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1664 WRITE RADEK BEFORE 1 | 0516 1665 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1666# GO TO RADEK22. | 0748 1667 MOVE 1 TO INDEX-TISK. | 0748 1668 IF ND-KONEC = 1 | 0785 1669 STRING 'CERP. ZUST ZUST. CENE HODI- PRES- MZDA ZAKL.' 1670 ' SAZBA RADA NA EV. ' SPACE 5 WND SPACE 10 | 0841 1671# INTO TISK GO TO W6. | 0518 1672 STRING 'CERP. ZUST ZUST. CENE HODI- PRES- MZDA ZAKL.' 1673 ' SAZBA RADA NA EV. ' SPACES 107 INTO TISK. | 0518 1674# W6. IF INDEX-05 = 1 GO TO RADEK23. | 0739 1675 WRITE RADEK BEFORE 1. | 0516 1676 * 1677 RADEK23. 1678 ********* 1679# IF ND-KONEC = 0 GO TO PLNENI23. | 0785 1680# IF ND1 = 1 GO TO 23-2. | 0789 1681 IF WDRUH-ND1 NOT = ZERO PERFORM ND1 THRU ND1X | 0589 1682# GO TO PLNENI23. 1683 MOVE 0 TO ND-VETA 1684 GO TO CYKL-RADEK23. | 0787 1685# 23-2.IF ND2 = 1 GO TO 23-3. | 0790 1686 IF WDRUH-ND2 NOT = ZERO PERFORM ND2 THRU ND2X | 0590 1687# GO TO PLNENI23. 1688 MOVE 0 TO ND-VETA 1689 GO TO CYKL-RADEK23. | 0787 1690# 23-3.IF ND3 = 1 MOVE 0 TO ND-VETA GO TO CYKL-RADEK23. | 0791 0787 1691 IF WDRUH-ND3 NOT = ZERO PERFORM ND3 THRU ND3X | 0591 1692# GO TO PLNENI23. 1693 MOVE 0 TO ND-VETA. | 0787 1694 CYKL-RADEK23. 1695# IF ND-VETA = 1 GO TO PLNENI23. | 0787 1696 MOVE 1 TO ND-VETA. | 0787 1697 ADD 1 TO I 1698 IF I > POCET-VET MOVE 0 TO ND-KONEC | 0723 0723 0755 1699 MOVE 0 TO ND1 ND2 ND3 | 0785 0789 0790 1700 IF INDEX-05 = 1 MOVE 3 TO INDEX-05 GO TO PLNENI23 | 0791 0739 0739 1701# ELSE GO TO PLNENI23. 1702 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1703 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1704 SPACES BY ZERO. 1705 MOVE 0 TO ND1 ND2 ND3. | 0789 0790 0791 1706 GO TO RADEK23. 1707 PLNENI23. 1708# IF INDEX-01 NOT = 1 GO TO 23-4. | 0726 1709# IF WDRUH-ND2 = 01 GO TO 23-5. | 0590 1710 PERFORM 17-ZAC THRU 17-KON. 1711 GO TO 23-4. 1712# 23-5. IF ND2 = 1 GO TO 23-6. | 0790 1713 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 1714 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1715 PERFORM 17-ZAC THRU 17-KON | 0736 1716 IF WDRUH-ND2 = 0 GO TO 23-4 ELSE | 0590 1717 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1718# GO TO 23-4. | 0734 1719 PERFORM ND2 THRU ND2X. 1720# IF WDRUH-ND3 = 01 GO TO 23-6. | 0591 1721 MOVE WPS-DD2 TO WPS-DD1 | 0610 1722 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1723 MOVE WDO2 TO WDO1 | 0608 0598 1724 PERFORM 17-ZAC THRU 17-KON. | 0595 1725 GO TO 23-4. 1726 23-6. IF WDRUH-ND3 NOT = 01 | 0591 1727 MOVE WPS-DD2 TO WPS-DD1 | 0610 1728 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1729 MOVE WDO2 TO WDO1 | 0608 0598 1730 PERFORM 17-ZAC THRU 17-KON | 0595 1731# GO TO 23-4. 1732 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 1733 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1734 PERFORM 17-ZAC THRU 17-KON | 0736 1735 IF WDRUH-ND3 = 0 GO TO 23-4 ELSE | 0591 1736 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1737# GO TO 23-4. | 0734 1738 PERFORM ND3 THRU ND3X. 1739 MOVE WPS-DD3 TO WPS-DD1 | 0613 1740 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 1741 MOVE WDO3 TO WDO1 | 0608 0601 1742 PERFORM 17-ZAC THRU 17-KON. | 0595 1743 23-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1744 STRING 'CERP. ZUST ZUST. CENE HODI- PRES- MZDA' 1745 ' ZAKL. SAZBA RADA NA EV. ' SPACE 5 WND SPACE 10 | 0841 1746 INTO TISK 1747 WRITE RADEK BEFORE 1 | 0518 0516 1748 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1749# GO TO RADEK23. | 0748 1750 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1751 WRITE RADEK BEFORE 1 | 0516 1752 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1753# GO TO RADEK23. | 0748 1754 MOVE 1 TO INDEX-TISK. | 0748 1755 IF ND-KONEC = 1 | 0785 1756 STRING ' DNY PR.M.R R.D. SPR.OR NY CAS ' 1757 SPACES 15 'DANE LIST' SPACES 9 WND SPACE 10 | 0841 1758 INTO TISK 1759# GO TO W7. | 0518 1760 STRING ' DNY PR.M.R R.D. SPR.OR NY CAS ' 1761 SPACES 15 'DANE LIST' SPACES 107 INTO TISK. | 0518 1762# W7. IF INDEX-05 = 1 GO TO RADEK24. | 0739 1763 WRITE RADEK BEFORE 1. | 0516 1764 * 1765 RADEK24. 1766 ********* 1767# IF ND-KONEC = 0 GO TO PLNENI24. | 0785 1768# IF ND1 = 1 GO TO 24-2. | 0789 1769 IF WDRUH-ND1 NOT = ZERO PERFORM ND1 THRU ND1X | 0589 1770# GO TO PLNENI24. 1771 MOVE 0 TO ND-VETA 1772 GO TO CYKL-RADEK24. | 0787 1773# 24-2.IF ND2 = 1 GO TO 24-3. | 0790 1774 IF WDRUH-ND2 NOT = ZERO PERFORM ND2 THRU ND2X | 0590 1775# GO TO PLNENI24. 1776 MOVE 0 TO ND-VETA 1777 GO TO CYKL-RADEK24. | 0787 1778# 24-3.IF ND3 = 1 MOVE 0 TO ND-VETA GO TO CYKL-RADEK24. | 0791 0787 1779 IF WDRUH-ND3 NOT = ZERO PERFORM ND3 THRU ND3X | 0591 1780# GO TO PLNENI24. 1781 MOVE 0 TO ND-VETA. | 0787 1782 CYKL-RADEK24. 1783# IF ND-VETA = 1 GO TO PLNENI24. | 0787 1784 MOVE 1 TO ND-VETA. | 0787 1785 ADD 1 TO I 1786 IF I > POCET-VET MOVE 0 TO ND-KONEC | 0723 0723 0755 1787 MOVE 0 TO ND1 ND2 ND3 | 0785 0789 0790 1788 IF INDEX-05 = 1 MOVE 3 TO INDEX-05 GO TO PLNENI24 | 0791 0739 0739 1789# ELSE GO TO PLNENI24. 1790 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1791 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1792 SPACES BY ZERO. 1793 MOVE 0 TO ND1 ND2 ND3. | 0789 0790 0791 1794 GO TO RADEK24. 1795 PLNENI24. 1796# IF INDEX-01 NOT = 1 GO TO 24-4. | 0726 1797# IF WDRUH-ND2 = 01 GO TO 24-5. | 0590 1798 PERFORM 17-ZAC THRU 17-KON. 1799 GO TO 24-4. 1800# 24-5. IF ND2 = 1 GO TO 24-6. | 0790 1801 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 1802 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1803 PERFORM 17-ZAC THRU 17-KON | 0736 1804 IF WDRUH-ND2 = 0 GO TO 24-4 ELSE | 0590 1805 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1806# GO TO 24-4. | 0734 1807 PERFORM ND2 THRU ND2X. 1808# IF WDRUH-ND3 = 01 GO TO 24-6. | 0591 1809 MOVE WPS-DD2 TO WPS-DD1 | 0610 1810 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1811 MOVE WDO2 TO WDO1 | 0608 0598 1812 PERFORM 17-ZAC THRU 17-KON. | 0595 1813 GO TO 24-4. 1814 24-6. IF WDRUH-ND3 NOT = 01 | 0591 1815 MOVE WPS-DD2 TO WPS-DD1 | 0610 1816 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1817 MOVE WDO2 TO WDO1 | 0608 0598 1818 PERFORM 17-ZAC THRU 17-KON | 0595 1819# GO TO 24-4. 1820 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 1821 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1822 PERFORM 17-ZAC THRU 17-KON | 0736 1823 IF WDRUH-ND3 = 0 GO TO 24-4 ELSE | 0591 1824 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1825# GO TO 24-4. | 0734 1826 PERFORM ND3 THRU ND3X. 1827 MOVE WPS-DD3 TO WPS-DD1 | 0613 1828 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 1829 MOVE WDO3 TO WDO1 | 0608 0601 1830 PERFORM 17-ZAC THRU 17-KON. | 0595 1831 24-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1832 STRING ' DNY PR.M.R R.D. SPR.OR NY CAS' 1833 SPACES 15 'DANE LIST' SPACES 9 WND SPACE 10 | 0841 1834 INTO TISK 1835 WRITE RADEK BEFORE 1 | 0518 0516 1836 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1837# GO TO RADEK24. | 0748 1838 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1839 WRITE RADEK BEFORE 1 | 0516 1840 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1841# GO TO RADEK24. | 0748 1842 MOVE 1 TO INDEX-TISK. | 0748 1843 IF ND-KONEC = 0 | 0785 1844# STRING SPACES 152 INTO TISK GO TO W8. | 0518 1845 STRING SPACES 75 WND SPACE 10 INTO TISK. | 0841 0518 1846# W8. IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK25. | 0739 0752 1847 WRITE RADEK BEFORE 1. | 0516 1848 * 1849 * V PRVNI CASTI RADKU 25 AZ 36 SE PROVADI TISK HODNOT DOVOLENE, 1850 * NEOMLUVENE ABSENCE, VOLNA NEPLACENEHO ORGANIZACI, ODPRAC.HODIN, 1851 * PRESCASU,DANOV.ZAKLADU,DAN.SKUPINY A MZDY NA EVID.LISTU ZA 1852 * JEDNOTLIVE MESICE ROKU. 1853 * TATO CAST RADKU SE ZPRACOVAVA VZDY OD PARAGRAFU CYKL2-RADEK.. 1854 * - JE-LI POLE IND1 = 0, NEEXISTUJE V SOUBORU CIST.MEZD PRO 1855 * ZPRACOVAVANY MESIC VETA,TO ZNAMENA ZE NA RADKU BUDOU VYTISTENY 1856 * NULY A NACTENA VETA BUDE ZPRACOVAVANA TO ZNAMENA VYTISTENA AZ 1857 * RADKU PRO MESIC UVEDENY VE VETE 1858 * 1859 RADEK25. 1860 ********* 1861# IF ND-KONEC = 0 GO TO CYKL2-RADEK25. | 0785 1862 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1863 SPACES BY ZERO. 1864# IF ND1 = 1 GO TO 25-2. | 0789 1865 IF WDRUH-ND1 NOT = ZERO PERFORM ND1 THRU ND1X | 0589 1866# GO TO CYKL2-RADEK25. 1867 MOVE 0 TO ND-VETA 1868 GO TO CYKL-RADEK25. | 0787 1869# 25-2.IF ND2 = 1 GO TO 25-3. | 0790 1870 IF WDRUH-ND2 NOT = ZERO PERFORM ND2 THRU ND2X | 0590 1871# GO TO CYKL2-RADEK25. 1872 MOVE 0 TO ND-VETA 1873 GO TO CYKL-RADEK25. | 0787 1874# 25-3.IF ND3 = 1 MOVE 0 TO ND-VETA GO TO CYKL-RADEK25. | 0791 0787 1875 IF WDRUH-ND3 NOT = ZERO PERFORM ND3 THRU ND3X | 0591 1876# GO TO CYKL2-RADEK25. 1877 MOVE 0 TO ND-VETA. | 0787 1878 CYKL-RADEK25. 1879# IF ND-VETA = 1 GO TO CYKL2-RADEK25. | 0787 1880 MOVE 1 TO ND-VETA. | 0787 1881 ADD 1 TO I 1882 IF I > POCET-VET MOVE 0 TO ND-KONEC | 0723 0723 0755 1883 MOVE 0 TO ND1 ND2 ND3 | 0785 0789 0790 1884 IF INDEX-05 = 1 MOVE 3 TO INDEX-05 GO TO CYKL2-RADEK25 | 0791 0739 0739 1885# ELSE GO TO CYKL2-RADEK25. 1886 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1887 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1888 SPACES BY ZERO. 1889 MOVE 0 TO ND1 ND2 ND3. | 0789 0790 0791 1890 GO TO RADEK25. 1891 CYKL2-RADEK25. 1892# IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI25. | 0752 0752 1893 MOVE 1 TO J. | 0724 1894 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 1895 IF WMM = 01 | 0537 1896 MOVE 1 TO IND1 1897 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 1898# GO TO PLNENI25. 1899 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 1900 PLNENI25. 1901# IF INDEX-01 NOT = 1 GO TO 25-4. | 0726 1902 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1903# IF WDRUH-ND2 = 01 GO TO 25-5. | 0590 1904 PERFORM 17-ZAC THRU 17-KON. 1905 GO TO 25-4. 1906# 25-5. IF ND2 = 1 GO TO 25-6. | 0790 1907 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 1908 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1909 PERFORM 17-ZAC THRU 17-KON | 0736 1910 IF WDRUH-ND2 = 0 GO TO 25-4 ELSE | 0590 1911 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1912# GO TO 25-4. | 0734 1913 PERFORM ND2 THRU ND2X. 1914# IF WDRUH-ND3 = 01 GO TO 25-6. | 0591 1915 MOVE WPS-DD2 TO WPS-DD1 | 0610 1916 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1917 MOVE WDO2 TO WDO1 | 0608 0598 1918 PERFORM 17-ZAC THRU 17-KON. | 0595 1919 GO TO 25-4. 1920 25-6. IF WDRUH-ND3 NOT = 01 | 0591 1921 MOVE WPS-DD2 TO WPS-DD1 | 0610 1922 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 1923 MOVE WDO2 TO WDO1 | 0608 0598 1924 PERFORM 17-ZAC THRU 17-KON | 0595 1925# GO TO 25-4. 1926 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 1927 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 1928 PERFORM 17-ZAC THRU 17-KON | 0736 1929 IF WDRUH-ND3 = 0 GO TO 25-4 ELSE | 0591 1930 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 1931# GO TO 25-4. | 0734 1932 PERFORM ND3 THRU ND3X. 1933 MOVE WPS-DD3 TO WPS-DD1 | 0613 1934 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 1935 MOVE WDO3 TO WDO1 | 0608 0601 1936 PERFORM 17-ZAC THRU 17-KON. | 0595 1937 25-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1938 STRING SPACES 75 WND SPACE 10 INTO TISK | 0841 1939 WRITE RADEK BEFORE 1 | 0518 0516 1940 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1941 MOVE VETA-MZDY (I) TO WPRAC | 0748 0528 0723 1942# GO TO RADEK25. | 0534 1943 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 1944 WRITE RADEK BEFORE 1 | 0516 1945 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 1946 MOVE VETA-MZDY (I) TO WPRAC | 0748 0528 0723 1947# GO TO RADEK25. | 0534 1948 MOVE 1 TO INDEX-TISK. | 0748 1949 IF ND-KONEC = 1 | 0785 1950# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W9. | 0867 0841 0518 1951 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 1952# W9. IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK26. | 0739 0752 1953 WRITE RADEK BEFORE 1. | 0516 1954 MOVE SPACE TO WTISK1. | 0867 1955 * 1956 RADEK26. 1957 ********* 1958# IF ND-KONEC = 0 GO TO CYKL2-RADEK26. | 0785 1959 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1960 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1961 SPACES BY ZERO. 1962# IF ND1 = 1 GO TO 26-2. | 0789 1963 IF WDRUH-ND1 NOT = ZERO PERFORM ND1 THRU ND1X | 0589 1964# GO TO CYKL2-RADEK26. 1965 MOVE 0 TO ND-VETA 1966 GO TO CYKL-RADEK26. | 0787 1967# 26-2.IF ND2 = 1 GO TO 26-3. | 0790 1968 IF WDRUH-ND2 NOT = ZERO PERFORM ND2 THRU ND2X | 0590 1969# GO TO CYKL2-RADEK26. 1970 MOVE 0 TO ND-VETA 1971 GO TO CYKL-RADEK26. | 0787 1972# 26-3.IF ND3 = 1 MOVE 0 TO ND-VETA GO TO CYKL-RADEK26. | 0791 0787 1973 IF WDRUH-ND3 NOT = ZERO PERFORM ND3 THRU ND3X | 0591 1974# GO TO CYKL2-RADEK26. 1975 MOVE 0 TO ND-VETA. | 0787 1976 CYKL-RADEK26. 1977# IF ND-VETA = 1 GO TO CYKL2-RADEK26. | 0787 1978 MOVE 1 TO ND-VETA. | 0787 1979 ADD 1 TO I 1980 IF I > POCET-VET MOVE 0 TO ND-KONEC | 0723 0723 0755 1981 MOVE 0 TO ND1 ND2 ND3 | 0785 0789 0790 1982 IF INDEX-05 = 1 MOVE 3 TO INDEX-05 GO TO CYKL2-RADEK26 | 0791 0739 0739 1983# ELSE GO TO CYKL2-RADEK26. 1984 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 1985 EXAMINE WDRUH-ND1 WDRUH-ND2 WDRUH-ND3 REPLACING ALL | 0589 0590 0591 1986 SPACES BY ZERO. 1987 MOVE 0 TO ND1 ND2 ND3. | 0789 0790 0791 1988 GO TO RADEK26. 1989 CYKL2-RADEK26. 1990# IF PRUBEH-1 = 1 GO TO KON. | 0752 1991 IF IND1 = 1 | 0973 1992 MOVE 0 TO IND1 1993 ADD 1 TO J | 0973 1994# MOVE VETA-MZDY (J) TO WPRAC. | 0724 0528 0724 0534 1995 KON. EXIT. 1996# 26. IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI26. | 0752 0752 1997 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 1998 IF WMM = 02 | 0537 1999 MOVE 1 TO IND1 2000 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2001# GO TO PLNENI26. 2002 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2003 PLNENI26. 2004# IF INDEX-01 NOT = 1 GO TO 26-4. | 0726 2005 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2006# IF WDRUH-ND2 = 01 GO TO 26-5. | 0590 2007 PERFORM 17-ZAC THRU 17-KON. 2008 GO TO 26-4. 2009# 26-5. IF ND2 = 1 GO TO 26-6. | 0790 2010 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 2011 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2012 PERFORM 17-ZAC THRU 17-KON | 0736 2013 IF WDRUH-ND2 = 0 GO TO 26-4 ELSE | 0590 2014 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2015# GO TO 26-4. | 0734 2016 PERFORM ND2 THRU ND2X. 2017# IF WDRUH-ND3 = 01 GO TO 26-6. | 0591 2018 MOVE WPS-DD2 TO WPS-DD1 | 0610 2019 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2020 MOVE WDO2 TO WDO1 | 0608 0598 2021 PERFORM 17-ZAC THRU 17-KON. | 0595 2022 GO TO 26-4. 2023 26-6. IF WDRUH-ND3 NOT = 01 | 0591 2024 MOVE WPS-DD2 TO WPS-DD1 | 0610 2025 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2026 MOVE WDO2 TO WDO1 | 0608 0598 2027 PERFORM 17-ZAC THRU 17-KON | 0595 2028# GO TO 26-4. 2029 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 2030 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2031 PERFORM 17-ZAC THRU 17-KON | 0736 2032 IF WDRUH-ND3 = 0 GO TO 26-4 ELSE | 0591 2033 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2034# GO TO 26-4. | 0734 2035 PERFORM ND3 THRU ND3X. 2036 MOVE WPS-DD3 TO WPS-DD1 | 0613 2037 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 2038 MOVE WDO3 TO WDO1 | 0608 0601 2039 PERFORM 17-ZAC THRU 17-KON. | 0595 2040 26-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2041 STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK | 0867 0841 2042 WRITE RADEK BEFORE 1 | 0518 0516 2043 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2044# GO TO RADEK26. | 0748 2045 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2046 WRITE RADEK BEFORE 1 | 0516 2047 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2048# GO TO RADEK26. | 0748 2049 MOVE 1 TO INDEX-TISK. | 0748 2050 IF ND-KONEC = 1 | 0785 2051# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W10. | 0867 0841 0518 2052 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2053# W10. IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK27. | 0739 0752 2054 WRITE RADEK BEFORE 1. | 0516 2055 * 2056 RADEK27. 2057 ********* 2058 PERFORM RADEK26 THRU KON. 2059# IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI27. | 0752 0752 2060 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 2061 IF WMM = 03 | 0537 2062 MOVE 1 TO IND1 2063 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2064# GO TO PLNENI27. 2065 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2066 PLNENI27. 2067# IF INDEX-01 NOT = 1 GO TO 27-4. | 0726 2068 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2069# IF WDRUH-ND2 = 01 GO TO 27-5. | 0590 2070 PERFORM 17-ZAC THRU 17-KON. 2071 GO TO 27-4. 2072# 27-5. IF ND2 = 1 GO TO 27-6. | 0790 2073 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 2074 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2075 PERFORM 17-ZAC THRU 17-KON | 0736 2076 IF WDRUH-ND2 = 0 GO TO 27-4 ELSE | 0590 2077 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2078# GO TO 27-4. | 0734 2079 PERFORM ND2 THRU ND2X. 2080# IF WDRUH-ND3 = 01 GO TO 27-6. | 0591 2081 MOVE WPS-DD2 TO WPS-DD1 | 0610 2082 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2083 MOVE WDO2 TO WDO1 | 0608 0598 2084 PERFORM 17-ZAC THRU 17-KON. | 0595 2085 GO TO 27-4. 2086 27-6. IF WDRUH-ND3 NOT = 01 | 0591 2087 MOVE WPS-DD2 TO WPS-DD1 | 0610 2088 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2089 MOVE WDO2 TO WDO1 | 0608 0598 2090 PERFORM 17-ZAC THRU 17-KON | 0595 2091# GO TO 27-4. 2092 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 2093 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2094 PERFORM 17-ZAC THRU 17-KON | 0736 2095 IF WDRUH-ND3 = 0 GO TO 27-4 ELSE | 0591 2096 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2097# GO TO 27-4. | 0734 2098 PERFORM ND3 THRU ND3X. 2099 MOVE WPS-DD3 TO WPS-DD1 | 0613 2100 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 2101 MOVE WDO3 TO WDO1 | 0608 0601 2102 PERFORM 17-ZAC THRU 17-KON. | 0595 2103 27-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2104 STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK | 0867 0841 2105 WRITE RADEK BEFORE 1 | 0518 0516 2106 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2107# GO TO RADEK27. | 0748 2108 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2109 WRITE RADEK BEFORE 1 | 0516 2110 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2111# GO TO RADEK27. | 0748 2112 MOVE 1 TO INDEX-TISK. | 0748 2113 IF ND-KONEC = 1 | 0785 2114# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W11. | 0867 0841 0518 2115 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2116# W11.IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK28. | 0739 0752 2117 WRITE RADEK BEFORE 1. | 0516 2118 * 2119 RADEK28. 2120 ********* 2121 PERFORM RADEK26 THRU KON. 2122# IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI28. | 0752 0752 2123 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 2124 IF WMM = 04 | 0537 2125 MOVE 1 TO IND1 2126 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2127# GO TO PLNENI28. 2128 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2129 PLNENI28. 2130# IF INDEX-01 NOT = 1 GO TO 28-4. | 0726 2131 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2132# IF WDRUH-ND2 = 01 GO TO 28-5. | 0590 2133 PERFORM 17-ZAC THRU 17-KON. 2134 GO TO 28-4. 2135# 28-5. IF ND2 = 1 GO TO 28-6. | 0790 2136 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 2137 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2138 PERFORM 17-ZAC THRU 17-KON | 0736 2139 IF WDRUH-ND2 = 0 GO TO 28-4 ELSE | 0590 2140 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2141# GO TO 28-4. | 0734 2142 PERFORM ND2 THRU ND2X. 2143# IF WDRUH-ND3 = 01 GO TO 28-6. | 0591 2144 MOVE WPS-DD2 TO WPS-DD1 | 0610 2145 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2146 MOVE WDO2 TO WDO1 | 0608 0598 2147 PERFORM 17-ZAC THRU 17-KON. | 0595 2148 GO TO 28-4. 2149 28-6. IF WDRUH-ND3 NOT = 01 | 0591 2150 MOVE WPS-DD2 TO WPS-DD1 | 0610 2151 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2152 MOVE WDO2 TO WDO1 | 0608 0598 2153 PERFORM 17-ZAC THRU 17-KON | 0595 2154# GO TO 28-4. 2155 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 2156 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2157 PERFORM 17-ZAC THRU 17-KON | 0736 2158 IF WDRUH-ND3 = 0 GO TO 28-4 ELSE | 0591 2159 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2160# GO TO 28-4. | 0734 2161 PERFORM ND3 THRU ND3X. 2162 MOVE WPS-DD3 TO WPS-DD1 | 0613 2163 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 2164 MOVE WDO3 TO WDO1 | 0608 0601 2165 PERFORM 17-ZAC THRU 17-KON. | 0595 2166 28-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2167 STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK | 0867 0841 2168 WRITE RADEK BEFORE 1 | 0518 0516 2169 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2170# GO TO RADEK28. | 0748 2171 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2172 WRITE RADEK BEFORE 1 | 0516 2173 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2174# GO TO RADEK28. | 0748 2175 MOVE 1 TO INDEX-TISK. | 0748 2176 IF ND-KONEC = 1 | 0785 2177# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W12. | 0867 0841 0518 2178 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2179# W12.IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK29. | 0739 0752 2180 WRITE RADEK BEFORE 1. | 0516 2181 * 2182 RADEK29. 2183 ********* 2184 PERFORM RADEK26 THRU KON. 2185# IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI29. | 0752 0752 2186 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 2187 IF WMM = 05 | 0537 2188 MOVE 1 TO IND1 2189 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2190# GO TO PLNENI29. 2191 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2192 PLNENI29. 2193# IF INDEX-01 NOT = 1 GO TO 29-4. | 0726 2194 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2195# IF WDRUH-ND2 = 01 GO TO 29-5. | 0590 2196 PERFORM 17-ZAC THRU 17-KON. 2197 GO TO 29-4. 2198# 29-5. IF ND2 = 1 GO TO 29-6. | 0790 2199 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 2200 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2201 PERFORM 17-ZAC THRU 17-KON | 0736 2202 IF WDRUH-ND2 = 0 GO TO 29-4 ELSE | 0590 2203 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2204# GO TO 29-4. | 0734 2205 PERFORM ND2 THRU ND2X. 2206# IF WDRUH-ND3 = 01 GO TO 29-6. | 0591 2207 MOVE WPS-DD2 TO WPS-DD1 | 0610 2208 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2209 MOVE WDO2 TO WDO1 | 0608 0598 2210 PERFORM 17-ZAC THRU 17-KON. | 0595 2211 GO TO 29-4. 2212 29-6. IF WDRUH-ND3 NOT = 01 | 0591 2213 MOVE WPS-DD2 TO WPS-DD1 | 0610 2214 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2215 MOVE WDO2 TO WDO1 | 0608 0598 2216 PERFORM 17-ZAC THRU 17-KON | 0595 2217# GO TO 29-4. 2218 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 2219 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2220 PERFORM 17-ZAC THRU 17-KON | 0736 2221 IF WDRUH-ND3 = 0 GO TO 29-4 ELSE | 0591 2222 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2223# GO TO 29-4. | 0734 2224 PERFORM ND3 THRU ND3X. 2225 MOVE WPS-DD3 TO WPS-DD1 | 0613 2226 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 2227 MOVE WDO3 TO WDO1 | 0608 0601 2228 PERFORM 17-ZAC THRU 17-KON. | 0595 2229 29-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2230 STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK | 0867 0841 2231 WRITE RADEK BEFORE 1 | 0518 0516 2232 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2233# GO TO RADEK29. | 0748 2234 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2235 WRITE RADEK BEFORE 1 | 0516 2236 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2237# GO TO RADEK29. | 0748 2238 MOVE 1 TO INDEX-TISK. | 0748 2239 IF ND-KONEC = 1 | 0785 2240# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W13. | 0867 0841 0518 2241 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2242# W13.IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK30. | 0739 0752 2243 WRITE RADEK BEFORE 1. | 0516 2244 * 2245 RADEK30. 2246 ********* 2247 PERFORM RADEK26 THRU KON. 2248# IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI30. | 0752 0752 2249 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 2250 IF WMM = 06 | 0537 2251 MOVE 1 TO IND1 2252 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2253# GO TO PLNENI30. 2254 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2255 PLNENI30. 2256# IF INDEX-01 NOT = 1 GO TO 30-4. | 0726 2257 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2258# IF WDRUH-ND2 = 01 GO TO 30-5. | 0590 2259 PERFORM 17-ZAC THRU 17-KON. 2260 GO TO 30-4. 2261# 30-5. IF ND2 = 1 GO TO 30-6. | 0790 2262 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 2263 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2264 PERFORM 17-ZAC THRU 17-KON | 0736 2265 IF WDRUH-ND2 = 0 GO TO 30-4 ELSE | 0590 2266 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2267# GO TO 30-4. | 0734 2268 PERFORM ND2 THRU ND2X. 2269# IF WDRUH-ND3 = 01 GO TO 30-6. | 0591 2270 MOVE WPS-DD2 TO WPS-DD1 | 0610 2271 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2272 MOVE WDO2 TO WDO1 | 0608 0598 2273 PERFORM 17-ZAC THRU 17-KON. | 0595 2274 GO TO 30-4. 2275 30-6. IF WDRUH-ND3 NOT = 01 | 0591 2276 MOVE WPS-DD2 TO WPS-DD1 | 0610 2277 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2278 MOVE WDO2 TO WDO1 | 0608 0598 2279 PERFORM 17-ZAC THRU 17-KON | 0595 2280# GO TO 30-4. 2281 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 2282 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2283 PERFORM 17-ZAC THRU 17-KON | 0736 2284 IF WDRUH-ND3 = 0 GO TO 30-4 ELSE | 0591 2285 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2286# GO TO 30-4. | 0734 2287 PERFORM ND3 THRU ND3X. 2288 MOVE WPS-DD3 TO WPS-DD1 | 0613 2289 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 2290 MOVE WDO3 TO WDO1 | 0608 0601 2291 PERFORM 17-ZAC THRU 17-KON. | 0595 2292 30-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2293 STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK | 0867 0841 2294 WRITE RADEK BEFORE 1 | 0518 0516 2295 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2296# GO TO RADEK30. | 0748 2297 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2298 WRITE RADEK BEFORE 1 | 0516 2299 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2300# GO TO RADEK30. | 0748 2301 MOVE 1 TO INDEX-TISK. | 0748 2302 IF ND-KONEC = 1 | 0785 2303# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W14. | 0867 0841 0518 2304 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2305# W14.IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK31. | 0739 0752 2306 WRITE RADEK BEFORE 1. | 0516 2307 * 2308 RADEK31. 2309 ********* 2310 PERFORM RADEK26 THRU KON. 2311# IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI31. | 0752 0752 2312 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 2313 IF WMM = 07 | 0537 2314 MOVE 1 TO IND1 2315 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2316# GO TO PLNENI31. 2317 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2318 PLNENI31. 2319# IF INDEX-01 NOT = 1 GO TO 31-4. | 0726 2320 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2321# IF WDRUH-ND2 = 01 GO TO 31-5. | 0590 2322 PERFORM 17-ZAC THRU 17-KON. 2323 GO TO 31-4. 2324# 31-5. IF ND2 = 1 GO TO 31-6. | 0790 2325 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 2326 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2327 PERFORM 17-ZAC THRU 17-KON | 0736 2328 IF WDRUH-ND2 = 0 GO TO 31-4 ELSE | 0590 2329 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2330# GO TO 31-4. | 0734 2331 PERFORM ND2 THRU ND2X. 2332# IF WDRUH-ND3 = 01 GO TO 31-6. | 0591 2333 MOVE WPS-DD2 TO WPS-DD1 | 0610 2334 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2335 MOVE WDO2 TO WDO1 | 0608 0598 2336 PERFORM 17-ZAC THRU 17-KON. | 0595 2337 GO TO 31-4. 2338 31-6. IF WDRUH-ND3 NOT = 01 | 0591 2339 MOVE WPS-DD2 TO WPS-DD1 | 0610 2340 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2341 MOVE WDO2 TO WDO1 | 0608 0598 2342 PERFORM 17-ZAC THRU 17-KON | 0595 2343# GO TO 31-4. 2344 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 2345 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2346 PERFORM 17-ZAC THRU 17-KON | 0736 2347 IF WDRUH-ND3 = 0 GO TO 31-4 ELSE | 0591 2348 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2349# GO TO 31-4. | 0734 2350 PERFORM ND3 THRU ND3X. 2351 MOVE WPS-DD3 TO WPS-DD1 | 0613 2352 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 2353 MOVE WDO3 TO WDO1 | 0608 0601 2354 PERFORM 17-ZAC THRU 17-KON. | 0595 2355 31-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2356 STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK | 0867 0841 2357 WRITE RADEK BEFORE 1 | 0518 0516 2358 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2359# GO TO RADEK31. | 0748 2360 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2361 WRITE RADEK BEFORE 1 | 0516 2362 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2363# GO TO RADEK31. | 0748 2364 MOVE 1 TO INDEX-TISK. | 0748 2365 IF ND-KONEC = 1 | 0785 2366# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W15. | 0867 0841 0518 2367 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2368# W15.IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK32. | 0739 0752 2369 WRITE RADEK BEFORE 1. | 0516 2370 * 2371 RADEK32. 2372 ********* 2373 PERFORM RADEK26 THRU KON. 2374# IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI32. | 0752 0752 2375 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 2376 IF WMM = 08 | 0537 2377 MOVE 1 TO IND1 2378 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2379# GO TO PLNENI32. 2380 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2381 PLNENI32. 2382# IF INDEX-01 NOT = 1 GO TO 32-4. | 0726 2383 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2384# IF WDRUH-ND2 = 01 GO TO 32-5. | 0590 2385 PERFORM 17-ZAC THRU 17-KON. 2386 GO TO 32-4. 2387# 32-5. IF ND2 = 1 GO TO 32-6. | 0790 2388 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 2389 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2390 PERFORM 17-ZAC THRU 17-KON | 0736 2391 IF WDRUH-ND2 = 0 GO TO 32-4 ELSE | 0590 2392 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2393# GO TO 32-4. | 0734 2394 PERFORM ND2 THRU ND2X. 2395# IF WDRUH-ND3 = 01 GO TO 32-6. | 0591 2396 MOVE WPS-DD2 TO WPS-DD1 | 0610 2397 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2398 MOVE WDO2 TO WDO1 | 0608 0598 2399 PERFORM 17-ZAC THRU 17-KON. | 0595 2400 GO TO 32-4. 2401 32-6. IF WDRUH-ND3 NOT = 01 | 0591 2402 MOVE WPS-DD2 TO WPS-DD1 | 0610 2403 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2404 MOVE WDO2 TO WDO1 | 0608 0598 2405 PERFORM 17-ZAC THRU 17-KON | 0595 2406# GO TO 32-4. 2407 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 2408 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2409 PERFORM 17-ZAC THRU 17-KON | 0736 2410 IF WDRUH-ND3 = 0 GO TO 32-4 ELSE | 0591 2411 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2412# GO TO 32-4. | 0734 2413 PERFORM ND3 THRU ND3X. 2414 MOVE WPS-DD3 TO WPS-DD1 | 0613 2415 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 2416 MOVE WDO3 TO WDO1 | 0608 0601 2417 PERFORM 17-ZAC THRU 17-KON. | 0595 2418 32-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2419 STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK | 0867 0841 2420 WRITE RADEK BEFORE 1 | 0518 0516 2421 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2422# GO TO RADEK32. | 0748 2423 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2424 WRITE RADEK BEFORE 1 | 0516 2425 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2426# GO TO RADEK32. | 0748 2427 MOVE 1 TO INDEX-TISK. | 0748 2428 IF ND-KONEC = 1 | 0785 2429# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W16. | 0867 0841 0518 2430 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2431# W16.IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK33. | 0739 0752 2432 WRITE RADEK BEFORE 1. | 0516 2433 * 2434 RADEK33. 2435 ********* 2436 PERFORM RADEK26 THRU KON. 2437# IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI33. | 0752 0752 2438 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 2439 IF WMM = 09 | 0537 2440 MOVE 1 TO IND1 2441 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2442# GO TO PLNENI33. 2443 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2444 PLNENI33. 2445# IF INDEX-01 NOT = 1 GO TO 33-4. | 0726 2446 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2447# IF WDRUH-ND2 = 01 GO TO 33-5. | 0590 2448 PERFORM 17-ZAC THRU 17-KON. 2449 GO TO 33-4. 2450# 33-5. IF ND2 = 1 GO TO 33-6. | 0790 2451 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 2452 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2453 PERFORM 17-ZAC THRU 17-KON | 0736 2454 IF WDRUH-ND2 = 0 GO TO 33-4 ELSE | 0590 2455 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2456# GO TO 33-4. | 0734 2457 PERFORM ND2 THRU ND2X. 2458# IF WDRUH-ND3 = 01 GO TO 33-6. | 0591 2459 MOVE WPS-DD2 TO WPS-DD1 | 0610 2460 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2461 MOVE WDO2 TO WDO1 | 0608 0598 2462 PERFORM 17-ZAC THRU 17-KON. | 0595 2463 GO TO 33-4. 2464 33-6. IF WDRUH-ND3 NOT = 01 | 0591 2465 MOVE WPS-DD2 TO WPS-DD1 | 0610 2466 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2467 MOVE WDO2 TO WDO1 | 0608 0598 2468 PERFORM 17-ZAC THRU 17-KON | 0595 2469# GO TO 33-4. 2470 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 2471 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2472 PERFORM 17-ZAC THRU 17-KON | 0736 2473 IF WDRUH-ND3 = 0 GO TO 33-4 ELSE | 0591 2474 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2475# GO TO 33-4. | 0734 2476 PERFORM ND3 THRU ND3X. 2477 MOVE WPS-DD3 TO WPS-DD1 | 0613 2478 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 2479 MOVE WDO3 TO WDO1 | 0608 0601 2480 PERFORM 17-ZAC THRU 17-KON. | 0595 2481 33-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2482 STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK | 0867 0841 2483 WRITE RADEK BEFORE 1 | 0518 0516 2484 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2485# GO TO RADEK33. | 0748 2486 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2487 WRITE RADEK BEFORE 1 | 0516 2488 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2489# GO TO RADEK33. | 0748 2490 MOVE 1 TO INDEX-TISK. | 0748 2491 IF ND-KONEC = 1 | 0785 2492# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W17. | 0867 0841 0518 2493 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2494# W17.IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK34. | 0739 0752 2495 WRITE RADEK BEFORE 1. | 0516 2496 * 2497 RADEK34. 2498 ********* 2499 PERFORM RADEK26 THRU KON. 2500# IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI34. | 0752 0752 2501 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 2502 IF WMM = 10 | 0537 2503 MOVE 1 TO IND1 2504 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2505# GO TO PLNENI34. 2506 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2507 PLNENI34. 2508# IF INDEX-01 NOT = 1 GO TO 34-4. | 0726 2509 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2510# IF WDRUH-ND2 = 01 GO TO 34-5. | 0590 2511 PERFORM 17-ZAC THRU 17-KON. 2512 GO TO 34-4. 2513# 34-5. IF ND2 = 1 GO TO 34-6. | 0790 2514 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 2515 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2516 PERFORM 17-ZAC THRU 17-KON | 0736 2517 IF WDRUH-ND2 = 0 GO TO 34-4 ELSE | 0590 2518 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2519# GO TO 34-4. | 0734 2520 PERFORM ND2 THRU ND2X. 2521# IF WDRUH-ND3 = 01 GO TO 34-6. | 0591 2522 MOVE WPS-DD2 TO WPS-DD1 | 0610 2523 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2524 MOVE WDO2 TO WDO1 | 0608 0598 2525 PERFORM 17-ZAC THRU 17-KON. | 0595 2526 GO TO 34-4. 2527 34-6. IF WDRUH-ND3 NOT = 01 | 0591 2528 MOVE WPS-DD2 TO WPS-DD1 | 0610 2529 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2530 MOVE WDO2 TO WDO1 | 0608 0598 2531 PERFORM 17-ZAC THRU 17-KON | 0595 2532# GO TO 34-4. 2533 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 2534 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2535 PERFORM 17-ZAC THRU 17-KON | 0736 2536 IF WDRUH-ND3 = 0 GO TO 34-4 ELSE | 0591 2537 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2538# GO TO 34-4. | 0734 2539 PERFORM ND3 THRU ND3X. 2540 MOVE WPS-DD3 TO WPS-DD1 | 0613 2541 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 2542 MOVE WDO3 TO WDO1 | 0608 0601 2543 PERFORM 17-ZAC THRU 17-KON. | 0595 2544 34-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2545 STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK | 0867 0841 2546 WRITE RADEK BEFORE 1 | 0518 0516 2547 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2548# GO TO RADEK34. | 0748 2549 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2550 WRITE RADEK BEFORE 1 | 0516 2551 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2552# GO TO RADEK34. | 0748 2553 MOVE 1 TO INDEX-TISK. | 0748 2554 IF ND-KONEC = 1 | 0785 2555# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W18. | 0867 0841 0518 2556 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2557# W18.IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK35. | 0739 0752 2558 WRITE RADEK BEFORE 1. | 0516 2559 * 2560 RADEK35. 2561 ********* 2562 PERFORM RADEK26 THRU KON. 2563# IF PRUBEH-1 = 1 MOVE 0 TO PRUBEH-1 GO TO PLNENI35. | 0752 0752 2564 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 2565 IF WMM = 11 | 0537 2566 MOVE 1 TO IND1 2567 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2568# GO TO PLNENI35. 2569 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2570 PLNENI35. 2571# IF INDEX-01 NOT = 1 GO TO 35-4. | 0726 2572 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2573# IF WDRUH-ND2 = 01 GO TO 35-5. | 0590 2574 PERFORM 17-ZAC THRU 17-KON. 2575 GO TO 35-4. 2576# 35-5. IF ND2 = 1 GO TO 35-6. | 0790 2577 MOVE WZAC-NEM-OD2 TO ZAC-NEM-N. | 0584 0736 2578 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2579 PERFORM 17-ZAC THRU 17-KON | 0736 2580 IF WDRUH-ND2 = 0 GO TO 35-4 ELSE | 0590 2581 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2582# GO TO 35-4. | 0734 2583 PERFORM ND2 THRU ND2X. 2584# IF WDRUH-ND3 = 01 GO TO 35-6. | 0591 2585 MOVE WPS-DD2 TO WPS-DD1 | 0610 2586 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2587 MOVE WDO2 TO WDO1 | 0608 0598 2588 PERFORM 17-ZAC THRU 17-KON. | 0595 2589 GO TO 35-4. 2590 35-6. IF WDRUH-ND3 NOT = 01 | 0591 2591 MOVE WPS-DD2 TO WPS-DD1 | 0610 2592 MOVE WPS-MM2 TO WPS-MM1 | 0607 0611 2593 MOVE WDO2 TO WDO1 | 0608 0598 2594 PERFORM 17-ZAC THRU 17-KON | 0595 2595# GO TO 35-4. 2596 MOVE WPN-OD3 TO ZAC-NEM-N. | 0585 0736 2597 IF ZAC-NEM-S NOT = ZAC-NEM-N | 0734 2598 PERFORM 17-ZAC THRU 17-KON | 0736 2599 IF WDRUH-ND3 = 0 GO TO 35-4 ELSE | 0591 2600 MOVE ZAC-NEM-N TO ZAC-NEM-S | 0736 2601# GO TO 35-4. | 0734 2602 PERFORM ND3 THRU ND3X. 2603 MOVE WPS-DD3 TO WPS-DD1 | 0613 2604 MOVE WPS-MM3 TO WPS-MM1 | 0607 0614 2605 MOVE WDO3 TO WDO1 | 0608 0601 2606 PERFORM 17-ZAC THRU 17-KON. | 0595 2607 35-4.IF (( INDEX-05 = 2 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2608 STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK | 0867 0841 2609 WRITE RADEK BEFORE 1 | 0518 0516 2610 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2611# GO TO RADEK35. | 0748 2612 IF (( INDEX-05 = 3 ) AND ( INDEX-TISK = 1 )) | 0739 0748 2613 WRITE RADEK BEFORE 1 | 0516 2614 MOVE 0 TO INDEX-05 INDEX-TISK | 0739 2615# GO TO RADEK35. | 0748 2616 MOVE 1 TO INDEX-TISK. | 0748 2617 IF ND-KONEC = 1 | 0785 2618# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W19. | 0867 0841 0518 2619 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2620# W19.IF INDEX-05 = 1 MOVE 1 TO PRUBEH-1 GO TO RADEK36. | 0739 0752 2621 WRITE RADEK BEFORE 1. | 0516 2622 * 2623 RADEK36. 2624 ********* 2625 PERFORM RADEK26 THRU KON. 2626 MOVE VETA-MZDY (J) TO WPRAC. | 0528 0724 0534 2627 IF WMM = 12 | 0537 2628 MOVE 1 TO IND1 2629 PERFORM PLNENI-CASTI-RADKU25-36 | 0973 2630# GO TO PLNENI36. 2631 MOVE 0 TO W8 W62 W9 W11 W10 W6 W7 W41 W5 W83 W73. | 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 2632 PLNENI36. 2633 IF ND-KONEC = 1 | 0785 2634# STRING WTISK1 SPACE 7 WND SPACE 10 INTO TISK GO TO W20. | 0867 0841 0518 2635 STRING WTISK1 SPACES 77 INTO TISK. | 0867 0518 2636 W20.WRITE RADEK BEFORE 2 | 0516 2637 MOVE SPACE TO RADEK WTISK1 WND. | 0516 0867 0841 2638 * NASTAVENI INDIKATORU PRO TESTOVANI NEMOC.DAVEK NA POCATECNI 2639 * HODNOTY PRO ZPRACOVANI UDAJU DALSIHO PRACOVNIKA 2640 MOVE 1 TO ND-KONEC ND-VETA | 0785 2641 MOVE 0 TO ND1 ND2 ND3 I J INDEX-01 INDEX-05 PRVNI-01 ZACATEK | 0787 0789 0790 0791 0723 0724 0726 0739 0728 2642 PRUBEH-1 POCET-VET INDEX-TISK IND1. | 0731 0752 0755 0748 0973 2643 MOVE SPACE TO ZAC-NEM-S ZAC-NEM-N. | 0734 0736 2644 * 2645 RADEK38. 2646 ********* 2647 * V TOMTO RADKU SE TISKNOU SOUCTY JEDNOTLIVYCH POLOZEK ZA ROK 2648 * A PROVADI SE ZDE VYNULOVANI SOUCTOVYCH POLOZEK 2649 MOVE POL1 TO W8. | 0941 0868 2650 MOVE POL2 TO W11. | 0942 0871 2651 MOVE POL3 TO W10. | 0943 0872 2652 MOVE POL4 TO W6. | 0944 0873 2653 MOVE POL5 TO W7. | 0945 0874 2654 MOVE POL6 TO W41. | 0946 0875 2655 MOVE POL7 TO W5. | 0947 0876 2656 MOVE POL8 TO W73. | 0948 0878 2657 MOVE POL81 TO W83. | 0949 0877 2658 PLNENI38. 2659 STRING WTISK1 'POCTY KALENDARNICH DNU:' SPACES 35 INTO TISK | 0867 2660 WRITE RADEK BEFORE 2. | 0518 0516 2661 MOVE SPACE TO WTISK1. | 0867 2662 NULOVANI. 2663 MOVE 0 TO POL1 POL2 POL3 POL4 POL5 POL6 POL7 POL8 POL81. | 0941 0942 0943 0944 0945 0946 0947 0948 0949 2664 * 2665 RADEK40. 2666 ********* 2667 MOVE WKAL-DNY-PR-NESCHOP TO W182. | 0979 0776 2668 STRING SPACES 74 'P.N. ZA CELE OBDOBI: ' W182 SPACES 33 | 0776 2669 INTO TISK 2670 WRITE RADEK BEFORE 1 | 0518 0516 2671 MOVE 0 TO W182 WKAL-DNY-PR-NESCHOP. | 0776 0979 2672 * 2673 RADEK41. 2674 ********* 2675# IF WKAL-DNY-VYR-PRISP1 = 0 GO TO PLNENI41. | 0981 2676 MOVE WKAL-DNY-VYR-PRISP1 TO W182. | 0981 0776 2677 MOVE WDAT-VP-OD1 TO WDATUM. | 0814 0766 2678 MOVE WDAT-VP-DO1 TO WDATUM1. | 0818 0767 2679 PLNENI41. 2680 STRING SPACES 74 'VYPLATY VYR.PRISP.: ' W182 SPACES 6 | 0776 2681 ' OD ' WDATUM ' DO ' WDATUM1 SPACES 2 INTO TISK | 0766 0767 2682 WRITE RADEK BEFORE 1 | 0518 0516 2683 MOVE 0 TO W182 WDATUM1 WDATUM WKAL-DNY-VYR-PRISP1 | 0776 0767 0766 2684 WDAT-VP-OD1 WDAT-VP-DO1. | 0981 0814 0818 2685 * 2686 RADEK42. 2687 ********* 2688 MOVE WKAL-DNY-VYR-PRISP2 TO W182. | 0982 0776 2689 MOVE WDAT-VP-OD2 TO WDATUM. | 0822 0766 2690 MOVE WDAT-VP-DO2 TO WDATUM1. | 0826 0767 2691 STRING SPACES 74 'VYPLATY VYR.PRISP.: ' W182 SPACES 6 | 0776 2692 ' OD ' WDATUM ' DO ' WDATUM1 SPACES 2 INTO TISK | 0766 0767 2693 WRITE RADEK BEFORE 1 | 0518 0516 2694 MOVE 0 TO W182 I WKAL-DNY-VYR-PRISP2 | 0776 0723 2695 WDAT-VP-OD2 WDAT-VP-DO2. | 0982 0822 0826 2696 * 2697 RADEK43. 2698 ********* 2699# IF K3-STAV = 2 GO TO PLNENI43. | 0717 2700# IF K3-STAV = 0 PERFORM CTI-BRTOP THRU KB. | 0717 2701 IF KL3 = KL1 | 0718 2702 STRING SPACES 74 'V OZBROJ.VOJEN.SILACH: V MESICI ' | 0703 2703 MES-OD '-' MES-DO '.' ROK-VC ' = ' DNY-VC 'PRAC.DNU' | 0511 0512 0513 0514 2704 SPACES 3 INTO TISK 2705 WRITE RADEK BEFORE 1 | 0518 0516 2706 MOVE 0 TO K3-STAV 2707# GO TO RADEK44. | 0717 2708# IF KL3 < KL1 MOVE 0 TO K3-STAV GO TO RADEK43. | 0718 0703 0717 2709 PLNENI43. 2710 STRING SPACES 74 'V OZBROJ.VOJEN.SILACH:' 2711 SPACES 36 INTO TISK 2712 WRITE RADEK BEFORE 1. | 0518 0516 2713 * 2714 RADEK44. 2715 ********* 2716 STRING SPACES 74 'ZAMESTNANI VE II. PRAC.KATEGORII: ' 2717 A727 SPACES 14 INTO TISK | 0293 2718 WRITE RADEK BEFORE 2 | 0518 0516 2719 MOVE 0 TO WDATUM. | 0766 2720 * 2721 RADEK46. 2722 ********* 2723 STRING 'ME- HRUBA DAVKY PND POJIST.DOPRAVA D.ZAKL.NEZ.' 2724 ' KE DAN ZALOHA VYKON P U J C K Y SPO- PO-' 2725 ' NAJEM OSTATNI VYPUJ. OS CELKEM MZDA K' INTO TISK 2726 WRITE RADEK BEFORE 1. | 0518 0516 2727 * 2728 RADEK47. 2729 ********** 2730 STRING 'SIC MZDA NP ' SPACE 21 'DANE CASTKY ZDANENI ' 2731 ' ROZH. STAT. PODN. RENI JIS. SRAZKY' 2732 ' SRAZKY VYPLATE ' 2733 SPACE 10 INTO TISK 2734 WRITE RADEK BEFORE 2. | 0518 0516 2735 MOVE 0 TO I J. | 0723 0724 2736 * 2737 ******************** R A D E K 49 AZ 60 ********************* 2738 * 2739 * NA RADCICH 49-60 SE TISKNOU JEDNOTLIVE SLOZKY MZDY ZA PRISLUSNY 2740 * MESIC. MZDA ZA KAZDY MESIC JE TISTENA NA SAMOSTATNY RADEK. 2741 * 2742 RADEK49. 2743 ******** 2744 ADD 01 TO I. | 0723 2745 MOVE VETA-MZDY (I) TO WPRAC. | 0528 0723 0534 2746 IF WMM = 01 | 0537 2747 MOVE 1 TO IND2 2748 MOVE WUPRAV-DANE TO TD1 | 0976 0657 2749 PERFORM PLNENI-RADKU49-60 | 0928 2750# GO TO PLNENI49. 2751 MOVE 01 TO WW1. | 0882 2752 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2753 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2754 WW34 WW42 WW43. | 0900 0901 0902 0903 2755 PLNENI49. 2756 STRING WTISK2 SPACE 5 INTO TISK | 0881 2757 WRITE RADEK BEFORE 1 | 0518 0516 2758 MOVE SPACE TO WTISK2. | 0881 2759 * 2760 RADEK50. 2761 ********* 2762 IF IND2 = 1 | 0976 2763 MOVE 0 TO IND2 2764 ADD 1 TO I | 0976 2765# MOVE VETA-MZDY (I) TO WPRAC. | 0723 0528 0723 0534 2766 50. IF WMM = 02 | 0537 2767 MOVE 1 TO IND2 2768 MOVE WUPRAV-DANE TO TD2 | 0976 0657 2769 PERFORM PLNENI-RADKU49-60 | 0929 2770# GO TO PLNENI50. 2771 MOVE 02 TO WW1. | 0882 2772 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2773 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2774 WW34 WW42 WW43. | 0900 0901 0902 0903 2775 PLNENI50. 2776 PERFORM PLNENI49. 2777 * 2778 RADEK51. 2779 ********* 2780 PERFORM RADEK50. 2781 IF WMM = 03 | 0537 2782 MOVE 1 TO IND2 2783 MOVE WUPRAV-DANE TO TD3 | 0976 0657 2784 PERFORM PLNENI-RADKU49-60 | 0930 2785# GO TO PLNENI51. 2786 MOVE 03 TO WW1. | 0882 2787 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2788 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2789 WW34 WW42 WW43. | 0900 0901 0902 0903 2790 PLNENI51. 2791 PERFORM PLNENI49. 2792 * 2793 RADEK52. 2794 ********* 2795 PERFORM RADEK50. 2796 IF WMM = 04 | 0537 2797 MOVE 1 TO IND2 2798 MOVE WUPRAV-DANE TO TD4 | 0976 0657 2799 PERFORM PLNENI-RADKU49-60 | 0931 2800# GO TO PLNENI52. 2801 MOVE 04 TO WW1. | 0882 2802 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2803 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2804 WW34 WW42 WW43. | 0900 0901 0902 0903 2805 PLNENI52. 2806 PERFORM PLNENI49. 2807 * 2808 RADEK53. 2809 ********* 2810 PERFORM RADEK50. 2811 IF WMM = 05 | 0537 2812 MOVE 1 TO IND2 2813 MOVE WUPRAV-DANE TO TD5 | 0976 0657 2814 PERFORM PLNENI-RADKU49-60 | 0932 2815# GO TO PLNENI53. 2816 MOVE 05 TO WW1. | 0882 2817 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2818 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2819 WW34 WW42 WW43. | 0900 0901 0902 0903 2820 PLNENI53. 2821 PERFORM PLNENI49. 2822 * 2823 RADEK54. 2824 ********* 2825 PERFORM RADEK50. 2826 IF WMM = 06 | 0537 2827 MOVE 1 TO IND2 2828 MOVE WUPRAV-DANE TO TD6 | 0976 0657 2829 PERFORM PLNENI-RADKU49-60 | 0933 2830# GO TO PLNENI54. 2831 MOVE 06 TO WW1. | 0882 2832 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2833 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2834 WW34 WW42 WW43. | 0900 0901 0902 0903 2835 PLNENI54. 2836 PERFORM PLNENI49. 2837 * 2838 RADEK55. 2839 ********* 2840 PERFORM RADEK50. 2841 IF WMM = 07 | 0537 2842 MOVE 1 TO IND2 2843 MOVE WUPRAV-DANE TO TD7 | 0976 0657 2844 PERFORM PLNENI-RADKU49-60 | 0934 2845# GO TO PLNENI55. 2846 MOVE 07 TO WW1. | 0882 2847 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2848 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2849 WW34 WW42 WW43. | 0900 0901 0902 0903 2850 PLNENI55. 2851 PERFORM PLNENI49. 2852 * 2853 RADEK56. 2854 ********* 2855 PERFORM RADEK50. 2856 IF WMM = 08 | 0537 2857 MOVE 1 TO IND2 2858 MOVE WUPRAV-DANE TO TD8 | 0976 0657 2859 PERFORM PLNENI-RADKU49-60 | 0935 2860# GO TO PLNENI56. 2861 MOVE 08 TO WW1. | 0882 2862 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2863 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2864 WW34 WW42 WW43. | 0900 0901 0902 0903 2865 PLNENI56. 2866 PERFORM PLNENI49. 2867 * 2868 RADEK57. 2869 ********* 2870 PERFORM RADEK50. 2871 IF WMM = 09 | 0537 2872 MOVE 1 TO IND2 2873 MOVE WUPRAV-DANE TO TD9 | 0976 0657 2874 PERFORM PLNENI-RADKU49-60 | 0936 2875# GO TO PLNENI57. 2876 MOVE 09 TO WW1. | 0882 2877 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2878 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2879 WW34 WW42 WW43. | 0900 0901 0902 0903 2880 PLNENI57. 2881 PERFORM PLNENI49. 2882 * 2883 RADEK58. 2884 ********* 2885 PERFORM RADEK50. 2886 IF WMM = 10 | 0537 2887 MOVE 1 TO IND2 2888 MOVE WUPRAV-DANE TO TD10 | 0976 0657 2889 PERFORM PLNENI-RADKU49-60 | 0937 2890# GO TO PLNENI58. 2891 MOVE 10 TO WW1. | 0882 2892 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2893 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2894 WW34 WW42 WW43. | 0900 0901 0902 0903 2895 PLNENI58. 2896 PERFORM PLNENI49. 2897 * 2898 RADEK59. 2899 ********* 2900 PERFORM RADEK50. 2901 IF WMM = 11 | 0537 2902 MOVE 1 TO IND2 2903 MOVE WUPRAV-DANE TO TD11 | 0976 0657 2904 PERFORM PLNENI-RADKU49-60 | 0938 2905# GO TO PLNENI59. 2906 MOVE 11 TO WW1. | 0882 2907 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2908 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2909 WW34 WW42 WW43. | 0900 0901 0902 0903 2910 PLNENI59. 2911 PERFORM PLNENI49. 2912 * 2913 RADEK60. 2914 ********* 2915 PERFORM RADEK50. 2916 IF WMM = 12 | 0537 2917 MOVE 1 TO IND2 2918 MOVE WUPRAV-DANE TO TD12 | 0976 0657 2919 PERFORM PLNENI-RADKU49-60 | 0939 2920# GO TO PLNENI60. 2921 MOVE 12 TO WW1. | 0882 2922 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 | 0883 0886 0887 0888 0884 0885 0891 0892 2923 WW31 WW29 WW28 WW27 WW20 WW25 WW33 WW35 WW24 | 0889 0893 0894 0895 0896 0890 0898 0897 0899 2924 WW34 WW42 WW43. | 0900 0901 0902 0903 2925 PLNENI60. 2926 STRING WTISK2 INTO TISK | 0881 2927 WRITE RADEK BEFORE 2 | 0518 0516 2928 MOVE 0 TO WW105 WW16 WW17 WW18 WW36 WW37 WW81 WW23 WW19 WW31 | 0883 0886 0887 0888 0884 0885 0891 0892 0889 2929 WW29 WW34 WW28 WW27 WW20 WW25 WW33 WW35 WW24 WW42 WW43. | 0893 0894 0901 0895 0896 0890 0898 0897 0899 0900 2930 MOVE 0 TO I IND2. | 0723 0976 2931 * 2932 RADEK62. 2933 ********* 2934 * TISK SOUCTU JEDNOTLIVYCH POLOZEK ZA ROK 2935 MOVE POLE1 TO T1. | 0950 0906 2936 MOVE POLE3 TO T3. | 0952 0908 2937 MOVE POLE5 TO T5. | 0954 0910 2938 MOVE POLE7 TO T7. | 0956 0912 2939 MOVE POLE9 TO T9. | 0958 0914 2940 MOVE POLE12 TO T12. | 0961 0917 2941 MOVE POLE10 TO T10. | 0959 0915 2942 MOVE POLE14 TO T14. | 0963 0919 2943 MOVE POLE16 TO T16. | 0965 0921 2944 MOVE POLE18 TO T18. | 0967 0923 2945 MOVE POLE20 TO T20. | 0969 0925 2946 MOVE POLE21 TO T21. | 0970 0926 2947 K1. 2948 K2. 2949 RADEK65. 2950 X. 2951 ND1. 2952 ND1X. 2953 ND2. 2954 ND2X. 2955 ND3. 2956 ND3X. 2957 PLNENI-CASTI-RADKU25-36. 2958 KB. 2959 PLNENI-RADKU49-60. DATA DIRECTORY: LV NAME OF ITEM ADDR TP LENG LINE REFERENCE FD RODCISLA 0027 0992 1018 1137 01 ROD-VETA 0 GR 65 0028 02 RCISLO 0 DI 5 0029 02 RODCISLO1 5 AN 10 0030 1139 1140 02 RODCISLO2 15 AN 10 0031 1142 1143 02 RODCISLO3 25 AN 10 0032 1145 1146 02 RODCISLO4 35 AN 10 0033 1148 1149 02 RODCISLO5 45 AN 10 0034 1151 1152 02 RODCISLO6 55 AN 10 0035 1154 1155 FD KSP-JEP 0036 0992 1018 01 V64007 0 GR 700 0040 02 A001 0 DI 5 0042 1004 1058 1136 1138 02 A002 5 AN 28 0044 1004 1057 02 A003 33 AN 12 0046 1087 02 A004 45 DI 10 0048 1056 02 A005 55 DI 1 0050 1063 02 A006 56 DI 3 0052 02 A007 59 DI 1 0054 1063 02 A008 60 DI 1 0056 02 A009 61 DI 1 0058 02 A010 62 DI 4 0060 02 A011 66 DI 3 0062 1073 02 A012 69 DI 10 0064 02 A013 79 AN 25 0066 1100 02 A014 104 AN 20 0068 1100 02 A015 124 DI 5 0070 1100 02 A016 129 AN 25 0072 02 A017 154 AN 20 0074 02 A018 174 DI 5 0076 02 FILLER 179 AN 1 0078 02 A098 180 DI 3 0080 1058 02 A099 183 DI 1 0082 02 A100 184 DI 1 0084 1086 02 A101 185 DI 1 0086 02 A102 186 DI 6 0088 1062 02 A103 192 DI 3 0090 02 A104 195 DI 5 0092 02 A105 200 DI 6 0094 1077 02 A106 206 DI 3 0096 02 A107 209 DI 6 0098 1069 02 A108 215 DI 6 0100 1070 02 A109 221 DI 2 0102 1073 02 A110 223 DI 2 0104 1064 02 A111 225 DI 3 0106 1078 02 A112 228 DI 1 0108 02 A113 229 DI 1 0110 02 U-B 230 AN 1 0112 02 FILLER 231 AN 3 0113 02 A114 234 DI 3 0114 1411 02 A115 237 DI 3 0116 02 A116 240 DI 1 0118 02 FILLER 241 AN 2 0119 02 A117 243 DI 2 0121 02 FILLER 245 AN 3 0123 02 A120 248 DI 6 0124 02 A121 254 DI 3 0126 02 FILLER 257 AN 1 0128 02 A201 258 DI 2 0129 02 A202 260 DI 5 0131 02 A203 265 DI 2 0133 02 A204 267 DI 1 0135 02 A205 268 DI 5 0137 02 A206 273 DI 2 0139 02 A207 275 DI 2 0141 02 A208 277 DI 5 0143 02 A209 282 DI 6 0145 1085 02 A210 288 DI 5 0147 1093 02 A211 293 AN 14 0149 02 A212 307 DI 4 0151 02 A213 311 DI 5 0153 02 A215 316 AN 1 0155 02 A216 317 DI 5 0157 02 A217 322 DI 6 0159 02 A218 328 DI 6 0161 1093 02 FILLER 334 AN 8 0163 02 A220 342 DI 5 0164 02 A221 347 DI 5 0166 02 A402 352 DI 1 0168 02 A403 353 DI 2 0170 02 A404 355 DI 1 0172 02 A405 356 DI 5 0174 02 A406 361 DI 1 0176 02 A407 362 DI 2 0178 02 A408 364 DI 1 0180 02 A409 365 DI 5 0182 02 A410 370 DI 1 0184 02 A411 371 DI 2 0186 02 A412 373 DI 1 0188 02 A413 374 DI 5 0190 02 A414 379 DI 2 0192 02 A415 381 DI 5 0194 02 A416 386 DI 1 0196 02 A417 387 DI 2 0198 02 A418 389 DI 1 0200 02 A419 390 DI 1 0202 02 A420 391 DI 2 0204 02 A421 393 DI 1 0206 02 A422 394 DI 1 0208 02 A423 395 DI 2 0210 02 A424 397 DI 1 0212 02 A500 398 PA 3 0214 02 A501 401 PA 3 0216 02 A502 404 PA 3 0218 02 A503 407 DI 6 0220 02 A504 413 DI 6 0222 02 A505 419 DI 8 0224 02 A506 427 DI 8 0226 02 FILLER 435 AN 2 0228 02 A509 437 DI 2 0229 02 A510 439 DI 5 0231 02 A511 444 AN 9 0233 02 FILLER 453 AN 1 0235 02 A512 454 DI 3 0236 02 A513 457 DI 1 0238 02 FILLER 458 AN 2 0240 02 A701 460 DI 2 0241 1087 02 A702 462 AN 2 0243 1092 02 A703 464 DI 2 0244 02 A704 466 DI 4 0247 02 A705 470 DI 2 0249 1108 02 A706 472 DI 4 0251 1098 02 A707 476 DI 6 0253 02 A708 482 DI 6 0255 1099 02 A709 488 DI 1 0257 02 A710 489 DI 1 0259 1109 02 A711 490 DI 5 0261 02 A712 495 DI 5 0263 02 A713 500 DI 1 0265 02 A714 501 DI 1 0267 02 A715 502 DI 1 0269 02 A716 503 DI 1 0271 02 A717 504 DI 2 0273 1059 02 A718 506 DI 1 0275 02 A719 507 DI 1 0277 02 A720 508 DI 2 0279 02 A721 510 AN 1 0281 02 A722 511 DI 12 0283 1118 02 A723 523 DI 12 0285 1119 02 A724 535 DI 12 0287 1120 02 A725 547 DI 12 0289 02 A726 559 DI 12 0291 02 A727 571 AN 10 0293 2717 02 A728 581 DI 6 0295 02 A729 587 PA 5 0297 02 A730 592 PA 4 0299 02 A731 596 PA 4 0301 02 A732 600 PA 4 0303 02 A733 604 PA 4 0305 02 A734 608 PA 4 0307 02 A735 612 PA 4 0309 02 A736 616 DI 1 0311 02 A737 617 DI 2 0313 02 A738 619 PA 4 0315 02 A739 623 PA 4 0317 02 A740 627 PA 4 0319 02 A741 631 PA 5 0321 02 A742 636 PA 5 0323 02 A743 641 PA 5 0325 02 A744 646 PA 5 0327 02 A745 651 DI 2 0329 02 FILLR1 653 AN 43 0331 02 FILLR2 696 AN 4 0333 FD CIS-MZDY 0335 0992 1018 01 PRAC 0 GR 480 0339 02 AG 0 AN 3 0340 02 OBDOBI 3 GR 4 0341 03 MM 3 DI 2 0342 03 RR 5 DI 2 0343 02 OSCIS 7 DI 5 0344 02 JMENO 12 AN 28 0345 02 STRED 40 AN 3 0346 02 ODPRHOD 43 PA 3 0347 02 PRESCAS 46 PA 3 0348 02 CERP-RD 49 PA 3 0349 02 ZUST-RD 52 PA 3 0350 02 POV-VOLNO 55 PA 3 0351 02 ABSENCE 58 PA 2 0352 02 PRACDNY-PN 60 PA 2 0353 02 KALDNY-PN 62 PA 2 0354 02 CELMZDA 64 PA 4 0355 02 PREMIE 68 PA 4 0356 02 FOND-VED 72 PA 3 0357 02 TRIPLAT 75 PA 3 0358 02 ZSP 78 PA 3 0359 02 DANTR 81 AN 1 0360 02 FILLER 82 AN 2 0361 02 ZALOHA 84 PA 3 0362 02 VYPUJCKA 87 PA 4 0363 02 OST-SRAZ-POD 91 PA 3 0364 02 SPORENI 94 PA 4 0365 02 POD-PUJCKY 98 PA 3 0366 02 ST-PUJCKY 101 PA 3 0367 02 OST-PUJCKY 104 PA 3 0368 02 VYZIVNE-VR 107 PA 3 0369 02 OST-VYKROZ 110 PA 3 0370 02 FILLER 113 AN 2 0371 02 ROH 115 PA 2 0372 02 JINESRAZ 117 PA 3 0373 02 NEMOCEN 120 PA 3 0374 02 PRIDAVKY 123 PA 3 0375 02 OSTODM 126 PA 3 0376 02 VYNALEZY 129 PA 4 0377 02 CELKEM 133 PA 4 0378 02 ZDAN-CEL 137 PA 4 0379 02 SRAZ-CEL 141 PA 4 0380 02 VYPL-CEL 145 PA 4 0381 02 PN-OD1 149 GR 4 0382 0385 03 PN-DD1 149 AN 2 0383 03 PN-MM1 151 AN 2 0384 02 ZAC-NEM-OD1 149 AN 4 0385 02 PN-OD2 153 GR 4 0386 0389 03 PN-DD2 153 AN 2 0387 03 PN-MM2 155 AN 2 0388 02 ZAC-NEM-OD2 153 AN 4 0389 02 PN-OD3 157 GR 4 0390 0393 03 PN-DD3 157 AN 2 0391 03 PN-MM3 159 AN 2 0392 02 ZAC-NEM-OD3 157 AN 4 0393 02 DRUH-ND1 161 AN 2 0394 02 DRUH-ND2 163 AN 2 0395 02 DRUH-ND3 165 AN 2 0396 02 FILLER 167 AN 1 0397 02 VYPL1 168 GR 4 0398 03 OD1 168 AN 2 0399 03 DO1 170 AN 2 0400 02 VYPL2 172 GR 4 0401 03 OD2 172 AN 2 0402 03 DO2 174 AN 2 0403 02 VYPL3 176 GR 4 0404 03 OD3 176 AN 2 0405 03 DO3 178 AN 2 0406 02 VYPL-KCS 180 GR 9 0407 03 NEM1 180 PA 3 0408 03 NEM2 183 PA 3 0409 03 NEM3 186 PA 3 0410 02 PS-OD1 189 GR 4 0411 03 PS-DD1 189 AN 2 0412 03 PS-MM1 191 AN 2 0413 02 PS-OD2 193 GR 4 0414 03 PS-DD2 193 AN 2 0415 03 PS-MM2 195 AN 2 0416 02 PS-OD3 197 GR 4 0417 03 PS-DD3 197 AN 2 0418 03 PS-MM3 199 AN 2 0419 02 DOVOL-MIN 201 PA 3 0420 02 PRACDNY1 204 PA 2 0421 02 PRACDNY2 206 PA 2 0422 02 PRACDNY3 208 PA 2 0423 02 ND-DENNE 210 GR 4 0424 03 ND70 210 PA 2 0425 03 ND90 212 PA 2 0426 02 FILLER 214 AN 2 0427 02 SMENNOST 216 PA 2 0428 02 KD-MESIC 218 PA 2 0429 02 NEPL-MD 220 PA 2 0430 02 ARMADA 222 PA 2 0431 02 KALDNY-VVP 224 PA 2 0432 02 OSTVYD 226 PA 3 0433 02 MZDA-EVID 229 PA 3 0434 02 DAN 232 PA 3 0435 02 NAPROP 235 PA 3 0436 02 NEDOROH 238 PA 3 0437 02 SMLOUVY 241 PA 3 0438 02 ZVS 244 PA 3 0439 02 FILLER 247 AN 6 0440 02 DAN-CELKEM 253 PA 3 0441 02 FILLER 256 AN 2 0442 02 NEZDAN 258 PA 3 0443 02 PRACDNY-BUD 261 PA 2 0444 02 PRIPL-INV 263 PA 2 0445 02 FILLER 265 AN 2 0446 02 VOJCVIC 267 PA 3 0447 02 HOD-MD 270 PA 3 0448 02 MZDA-MD 273 PA 3 0449 02 VYROV-PRISP 276 PA 3 0450 02 PD-KRAC-ND 279 PA 2 0451 02 FILLER 281 AN 25 0452 02 JO-ROH 306 PA 2 0453 02 ZAKDAN 308 PA 3 0454 02 VYK-ROZH 311 PA 3 0455 02 CELK-ROH 314 PA 2 0456 02 HRUPLAT 316 PA 4 0457 02 INDPOJ 320 AN 1 0458 02 VYPL-CIS 321 AN 2 0459 02 KATEG 323 AN 1 0460 02 ROCNI-VYUCT 324 PA 3 0461 02 UPRAV-DANE 327 PA 3 0462 02 ZALOHA-PODILU 330 DI 5 0463 02 ZALOHA-DAN 335 DI 5 0464 02 KOD 340 DI 1 0465 02 FILLER 341 AN 1 0466 02 ZL-NAVRHY 342 PA 3 0467 02 KUHRADE 345 PA 3 0468 02 FILLER 348 AN 2 0469 02 PRUM-VYD 350 PA 4 0470 02 KONTR-VYD 354 DI 5 0471 02 VYR-PRISP 359 GR 12 0473 03 NAPRACOV 359 PA 3 0474 03 NADETI 362 PA 3 0475 03 OPRAVY 365 PA 3 0476 03 JEDNORAZ 368 PA 3 0477 02 ODSTUPNE 371 PA 4 0478 02 NAJEM1 375 PA 3 0479 02 FILLER 378 AN 10 0480 02 SNIZTP 388 PA 4 0481 02 PROPLDOV 392 PA 3 0482 02 RENTAPONEM 395 PA 4 0483 02 RENTAPRUBNEM 399 PA 4 0484 02 JEDNORAZMZDA 403 PA 4 0485 02 JEDNORAZDAN 407 PA 4 0486 02 ZAKSOCPOJ 411 PA 4 0488 02 ZAKZDRPOJ 415 PA 4 0489 02 SRAZSOC 419 PA 4 0490 02 SRAZZDR 423 PA 4 0491 02 SNIZDOPR 427 PA 4 0492 02 SNIZPOPL 431 PA 4 0494 02 SNIZDETI 435 PA 4 0495 02 SNIZINV 439 PA 4 0496 02 SNIZINVIND 443 PA 4 0497 02 MONTERKY 447 PA 4 0498 02 POJISTENI 451 PA 3 0499 02 ND67 454 PA 2 0500 02 PRACJUB 456 PA 4 0501 02 DOPOCETDAN 460 PA 3 0502 02 JEDMZDA 463 PA 4 0503 02 FILLER 467 AN 13 0504 FD BRTOP 0506 0992 1018 01 VETA-BRTOP 0 GR 20 0507 02 OS-CIS 0 DI 5 0508 02 JMEN 5 AN 3 0509 02 STREDISK 8 DI 3 0510 02 MES-OD 11 DI 2 0511 2703 02 MES-DO 13 DI 2 0512 2703 02 ROK-VC 15 DI 2 0513 2703 02 DNY-VC 17 DI 3 0514 2703 FD SESTAVA 0515 0993 1018 01 RADEK 0 GR 153 0516 1043 1048 1060 1066 1074 1081 1089 1095 1102 1106 1111 1116 1130 1135 1158 1251 1333 1403 1407 1419 1504 1574 1578 1589 1660 1664 1675 1747 1751 1763 1835 1839 1847 1939 1944 1953 2042 2046 2054 2105 2109 2117 2168 2172 2180 2231 2235 2243 2294 2298 2306 2357 2361 2369 2420 2424 2432 2483 2487 2495 2546 2550 2558 2609 2613 2621 2636 2637 2660 2670 2682 2693 2705 2712 2718 2726 2734 2757 2927 02 FILLER 0 AN 1 0517 02 TISK 1 AN 152 0518 1042 1047 1059 1065 1073 1080 1088 1094 1101 1105 1110 1115 1129 1134 1157 1159 1248 1249 1320 1330 1331 1402 1415 1417 1491 1501 1502 1573 1585 1587 1659 1671 1673 1746 1758 1761 1834 1844 1845 1938 1950 1951 2041 2051 2052 2104 2114 2115 2167 2177 2178 2230 2240 2241 2293 2303 2304 2356 2366 2367 2419 2429 2430 2482 2492 2493 2545 2555 2556 2608 2618 2619 2634 2635 2659 2669 2681 2692 2704 2711 2717 2725 2733 2756 2926 01 AK 0 DI 5 0526 0991 1136 01 VETA-MZ 8 GR 5760 0527 02 VETA-MZDY 8 AN 480 0528 1051 1055 1189 1278 1360 1447 1531 1616 1702 1790 1886 1894 1902 1941 1946 1959 1984 1994 1997 2005 2060 2068 2123 2131 2186 2194 2249 2257 2312 2320 2375 2383 2438 2446 2501 2509 2564 2572 2626 2745 2765 01 WPRAC 5768 GR 480 0534 1051 1055 1189 1278 1360 1447 1531 1616 1702 1790 1886 1894 1902 1941 1946 1959 1984 1994 1997 2005 2060 2068 2123 2131 2186 2194 2249 2257 2312 2320 2375 2383 2438 2446 2501 2509 2564 2572 2626 2745 2765 02 WAG 5768 AN 3 0535 02 WOBDOBI 5771 GR 4 0536 03 WMM 5771 DI 2 0537 1895 1998 2061 2124 2187 2250 2313 2376 2439 2502 2565 2627 2746 2766 2781 2796 2811 2826 2841 2856 2871 2886 2901 2916 03 WRR 5773 DI 2 0538 1057 02 WOSCIS 5775 DI 5 0539 02 WJMENO 5780 AN 28 0540 02 WSTRED 5808 AN 3 0541 02 WODPRHOD 5811 PA 3 0542 02 WPRESCAS 5814 PA 3 0543 02 WCERP-RD 5817 PA 3 0544 02 WZUST-RD 5820 PA 3 0545 02 WPOV-VOLNO 5823 PA 3 0546 02 WABSENCE 5826 PA 2 0547 02 WPRACDNY-PN 5828 PA 2 0548 02 WKALDNY-PN 5830 PA 2 0549 02 WCELMZDA 5832 PA 4 0550 02 WPREMIE 5836 PA 4 0551 02 WFOND-VED 5840 PA 3 0552 02 WTRIPLAT 5843 PA 3 0553 02 WZSP 5846 PA 3 0554 02 WDANTR 5849 AN 1 0555 02 FILLER 5850 AN 2 0556 02 WZALOHA 5852 PA 3 0557 02 WVYPUJCKA 5855 PA 4 0558 02 WOST-SRAZ-POD 5859 PA 3 0559 02 WSPORENI 5862 PA 4 0560 02 WPOD-PUJCKY 5866 PA 3 0561 02 WST-PUJCKY 5869 PA 3 0562 02 WOST-PUJCKY 5872 PA 3 0563 02 WVYZIVNE-VR 5875 PA 3 0564 02 WOST-VYKROZ 5878 PA 3 0565 02 FILLER 5881 AN 2 0566 02 WROH 5883 PA 2 0567 02 WJINESRAZ 5885 PA 3 0568 02 WNEMOCEN 5888 PA 3 0569 02 WPRIDAVKY 5891 PA 3 0570 02 WOSTODM 5894 PA 3 0571 02 WVYNALEZY 5897 PA 4 0572 02 WCELKEM 5901 PA 4 0573 02 WZDAN-CEL 5905 PA 4 0574 02 WSRAZ-CEL 5909 PA 4 0575 02 WVYPL-CEL 5913 PA 4 0576 02 WPN-OD1 5917 GR 4 0577 0580 03 WPN-DD1 5917 AN 2 0578 03 WPN-MM1 5919 AN 2 0579 02 WZAC-NEM-OD1 5917 AN 4 0580 02 WPN-OD2 5921 GR 4 0581 0584 03 WPN-DD2 5921 AN 2 0582 03 WPN-MM2 5923 AN 2 0583 02 WZAC-NEM-OD2 5921 AN 4 0584 1221 1289 1371 1458 1542 1627 1713 1801 1907 2010 2073 2136 2199 2262 2325 2388 2451 2514 2577 02 WPN-OD3 5925 GR 4 0585 0588 1234 1308 1390 1477 1561 1646 1732 1820 1926 2029 2092 2155 2218 2281 2344 2407 2470 2533 2596 03 WPN-DD3 5925 AN 2 0586 03 WPN-MM3 5927 AN 2 0587 02 WZAC-NEM-OD3 5925 AN 4 0588 02 WDRUH-ND1 5929 AN 2 0589 1190 1192 1257 1279 1339 1361 1426 1448 1510 1532 1595 1617 1681 1703 1769 1791 1862 1865 1887 1960 1963 1985 02 WDRUH-ND2 5931 AN 2 0590 1190 1196 1224 1262 1279 1285 1292 1344 1361 1367 1374 1431 1448 1454 1461 1515 1532 1538 1545 1600 1617 1623 1630 1686 1703 1709 1716 1774 1791 1797 1804 1862 1870 1887 1903 1910 1960 1968 1985 2006 2013 2069 2076 2132 2139 2195 2202 2258 2265 2321 2328 2384 2391 2447 2454 2510 2517 2573 2580 02 WDRUH-ND3 5933 AN 2 0591 1190 1228 1237 1267 1279 1296 1302 1311 1349 1361 1378 1384 1393 1436 1448 1465 1471 1480 1520 1532 1549 1555 1564 1605 1617 1634 1640 1649 1691 1703 1720 1726 1735 1779 1791 1808 1814 1823 1862 1875 1887 1914 1920 1929 1960 1973 1985 2017 2023 2032 2080 2086 2095 2143 2149 2158 2206 2212 2221 2269 2275 2284 2332 2338 2347 2395 2401 2410 2458 2464 2473 2521 2527 2536 2584 2590 2599 02 FILLER 5935 AN 1 0592 02 WVYPL1 5936 GR 4 0593 03 WOD1 5936 AN 2 0594 03 WDO1 5938 AN 2 0595 1203 1231 1243 1299 1305 1317 1381 1387 1399 1468 1474 1486 1552 1558 1570 1637 1643 1655 1723 1729 1741 1811 1817 1829 1917 1923 1935 2020 2026 2038 2083 2089 2101 2146 2152 2164 2209 2215 2227 2272 2278 2290 2335 2341 2353 2398 2404 2416 2461 2467 2479 2524 2530 2542 2587 2593 2605 02 WVYPL2 5940 GR 4 0596 03 WOD2 5940 AN 2 0597 03 WDO2 5942 AN 2 0598 1231 1299 1305 1381 1387 1468 1474 1552 1558 1637 1643 1723 1729 1811 1817 1917 1923 2020 2026 2083 2089 2146 2152 2209 2215 2272 2278 2335 2341 2398 2404 2461 2467 2524 2530 2587 2593 02 WVYPL3 5944 GR 4 0599 03 WOD3 5944 AN 2 0600 03 WDO3 5946 AN 2 0601 1243 1317 1399 1486 1570 1655 1741 1829 1935 2038 2101 2164 2227 2290 2353 2416 2479 2542 2605 02 WVYPL-KCS 5948 GR 9 0602 03 WNEM1 5948 PA 3 0603 03 WNEM2 5951 PA 3 0604 03 WNEM3 5954 PA 3 0605 02 WPS-OD1 5957 GR 4 0606 03 WPS-DD1 5957 AN 2 0607 1204 1229 1241 1297 1303 1315 1379 1385 1397 1466 1472 1484 1550 1556 1568 1635 1641 1653 1721 1727 1739 1809 1815 1827 1915 1921 1933 2018 2024 2036 2081 2087 2099 2144 2150 2162 2207 2213 2225 2270 2276 2288 2333 2339 2351 2396 2402 2414 2459 2465 2477 2522 2528 2540 2585 2591 2603 03 WPS-MM1 5959 AN 2 0608 1206 1230 1242 1298 1304 1316 1380 1386 1398 1467 1473 1485 1551 1557 1569 1636 1642 1654 1722 1728 1740 1810 1816 1828 1916 1922 1934 2019 2025 2037 2082 2088 2100 2145 2151 2163 2208 2214 2226 2271 2277 2289 2334 2340 2352 2397 2403 2415 2460 2466 2478 2523 2529 2541 2586 2592 2604 02 WPS-OD2 5961 GR 4 0609 03 WPS-DD2 5961 AN 2 0610 1229 1297 1303 1379 1385 1466 1472 1550 1556 1635 1641 1721 1727 1809 1815 1915 1921 2018 2024 2081 2087 2144 2150 2207 2213 2270 2276 2333 2339 2396 2402 2459 2465 2522 2528 2585 2591 03 WPS-MM2 5963 AN 2 0611 1230 1298 1304 1380 1386 1467 1473 1551 1557 1636 1642 1722 1728 1810 1816 1916 1922 2019 2025 2082 2088 2145 2151 2208 2214 2271 2277 2334 2340 2397 2403 2460 2466 2523 2529 2586 2592 02 WPS-OD3 5965 GR 4 0612 03 WPS-DD3 5965 AN 2 0613 1241 1315 1397 1484 1568 1653 1739 1827 1933 2036 2099 2162 2225 2288 2351 2414 2477 2540 2603 03 WPS-MM3 5967 AN 2 0614 1242 1316 1398 1485 1569 1654 1740 1828 1934 2037 2100 2163 2226 2289 2352 2415 2478 2541 2604 02 WDOVOL-MIN 5969 PA 3 0615 02 WPRACDNY1 5972 PA 2 0616 02 WPRACDNY2 5974 PA 2 0617 02 WPRACDNY3 5976 PA 2 0618 02 WND-DENNE 5978 GR 4 0619 03 WND70 5978 PA 2 0620 03 WND90 5980 PA 2 0621 02 FILLER 5982 AN 2 0622 02 WSMENNOST 5984 PA 2 0623 02 WKD-MESIC 5986 PA 2 0624 02 WNEPL-MD 5988 PA 2 0625 02 WARMADA 5990 PA 2 0626 02 WKALDNY-VVP 5992 PA 2 0627 02 WOSTVYD 5994 PA 3 0628 02 WMZDA-EVID 5997 PA 3 0629 02 WDAN 6000 PA 3 0630 02 WNAPROP 6003 PA 3 0631 02 WNEDOROH 6006 PA 3 0632 02 WSMLOUVY 6009 PA 3 0633 02 WZVS 6012 PA 3 0634 02 FILLER 6015 AN 6 0635 02 WDAN-CELKEM 6021 PA 3 0636 02 FILLER 6024 AN 2 0637 02 WNEZDAN 6026 PA 3 0638 02 WPRACDNY-BUD 6029 PA 2 0639 02 WPRIPL-INV 6031 PA 2 0640 02 FILLER 6033 AN 2 0641 02 WVOJCVIC 6035 PA 3 0642 02 WHOD-MD 6038 PA 3 0643 02 WMZDA-MD 6041 PA 3 0644 02 WVYROV-PRISP 6044 PA 3 0645 02 WPD-KRAC-ND 6047 PA 2 0646 02 FILLER 6049 AN 25 0647 02 WJO-ROH 6074 PA 2 0648 02 WZAKDAN 6076 PA 3 0649 02 WVYK-ROZH 6079 PA 3 0650 02 WCELK-ROH 6082 PA 2 0651 02 WHRUPLAT 6084 PA 4 0652 02 WINDPOJ 6088 AN 1 0653 02 WVYPL-CIS 6089 AN 2 0654 02 WKATEG 6091 AN 1 0655 02 WROCNI-VYUCT 6092 PA 3 0656 02 WUPRAV-DANE 6095 PA 3 0657 2748 2768 2783 2798 2813 2828 2843 2858 2873 2888 2903 2918 02 WZALOHA-PODILU 6098 DI 5 0658 02 WZALOHA-DAN 6103 DI 5 0659 02 WKOD 6108 DI 1 0660 02 FILLER 6109 AN 1 0661 02 WZL-NAVRHY 6110 PA 3 0662 02 WKUHRADE 6113 PA 3 0663 02 FILLER 6116 AN 2 0664 02 WPRUM-VYD 6118 PA 4 0665 02 WKONTR-VYD 6122 DI 5 0666 02 WVYR-PRISP 6127 GR 12 0668 03 WNAPRACOV 6127 PA 3 0669 03 WNADETI 6130 PA 3 0670 03 WOPRAVY 6133 PA 3 0671 03 WJEDNORAZ 6136 PA 3 0672 02 WODSTUPNE 6139 PA 4 0673 02 WNAJEM1 6143 PA 3 0674 02 FILLER 6146 AN 10 0675 02 WSNIZTP 6156 PA 4 0676 02 WPROPLDOV 6160 PA 3 0677 02 WRENTAPONEM 6163 PA 4 0678 02 WRENTAPRUBNEM 6167 PA 4 0679 02 WJEDNORAZMZDA 6171 PA 4 0680 02 WJEDNORAZDAN 6175 PA 4 0681 02 WZAKSOCPOJ 6179 PA 4 0683 02 WZAKZDRPOJ 6183 PA 4 0684 02 WSRAZSOC 6187 PA 4 0685 02 WSRAZZDR 6191 PA 4 0686 02 WSNIZDOPR 6195 PA 4 0687 02 WSNIZPOPL 6199 PA 4 0689 02 WSNIZDETI 6203 PA 4 0690 02 WSNIZINV 6207 PA 4 0691 02 WSNIZINVIND 6211 PA 4 0692 02 WMONTERKY 6215 PA 4 0693 02 WPOJISTENI 6219 PA 3 0694 02 WND67 6222 PA 2 0695 02 WPRACJUB 6224 PA 4 0696 02 WDOPOCETDAN 6228 PA 3 0697 02 WJEDMZDA 6231 PA 4 0698 02 FILLER 6235 AN 13 0699 01 KLIC1 6248 GR 11 0701 02 K1-STAV 6248 DI 1 0702 0998 1006 1016 1028 02 KL1 6249 GR 10 0703 1003 1008 2701 2708 03 K1STR 6249 DI 2 0704 1005 1010 03 K1JM 6251 AN 3 0705 1005 1010 03 K1-OSCIS 6254 DI 5 0706 1005 1010 01 KLIC2 6264 GR 11 0708 02 K2-STAV 6264 DI 1 0709 0999 1011 1017 1028 02 KL2 6265 GR 10 0710 1003 1008 03 K2STR 6265 DI 2 0711 1005 1010 03 K2JM 6267 AN 3 0712 1005 1009 1010 03 K2-OSCIS 6270 DI 5 0713 1005 1009 1010 01 KLIC3 6280 GR 11 0716 02 K3-STAV 6280 DI 1 0717 2699 2700 2706 2708 02 KL3 6281 GR 10 0718 2701 2708 03 K3STR 6281 DI 2 0719 03 K3JM 6283 AN 3 0720 03 K3-OSCIS 6286 DI 5 0721 01 I 6296 DI 2 0723 1050 1051 1054 1055 1163 1186 1187 1189 1273 1274 1278 1355 1356 1360 1442 1443 1447 1526 1527 1531 1611 1612 1616 1697 1698 1702 1785 1786 1790 1881 1882 1886 1902 1941 1946 1959 1979 1980 1984 2005 2068 2131 2194 2257 2320 2383 2446 2509 2572 2641 2694 2735 2744 2745 2764 2765 2930 01 J 6304 DI 2 0724 1893 1894 1993 1994 1997 2060 2123 2186 2249 2312 2375 2438 2501 2564 2626 2641 2735 01 INDEX-01 6312 DI 1 0726 1195 1198 1284 1366 1453 1537 1622 1708 1796 1901 2004 2067 2130 2193 2256 2319 2382 2445 2508 2571 2641 01 PRVNI-01 6320 DI 1 0728 1023 1209 2641 01 ZACATEK 6328 DI 1 0731 1024 1199 1200 1208 1211 1215 1216 2641 01 ZAC-NEM-S 6336 AN 4 0734 1222 1225 1235 1238 1290 1293 1309 1312 1372 1375 1391 1394 1459 1462 1478 1481 1543 1546 1562 1565 1628 1631 1647 1650 1714 1717 1733 1736 1802 1805 1821 1824 1908 1911 1927 1930 2011 2014 2030 2033 2074 2077 2093 2096 2137 2140 2156 2159 2200 2203 2219 2222 2263 2266 2282 2285 2326 2329 2345 2348 2389 2392 2408 2411 2452 2455 2471 2474 2515 2518 2534 2537 2578 2581 2597 2600 2643 01 ZAC-NEM-N 6344 AN 4 0736 1221 1222 1225 1234 1235 1238 1289 1290 1293 1308 1309 1312 1371 1372 1375 1390 1391 1394 1458 1459 1462 1477 1478 1481 1542 1543 1546 1561 1562 1565 1627 1628 1631 1646 1647 1650 1713 1714 1717 1732 1733 1736 1801 1802 1805 1820 1821 1824 1907 1908 1911 1926 1927 1930 2010 2011 2014 2029 2030 2033 2073 2074 2077 2092 2093 2096 2136 2137 2140 2155 2156 2159 2199 2200 2203 2218 2219 2222 2262 2263 2266 2281 2282 2285 2325 2326 2329 2344 2345 2348 2388 2389 2392 2407 2408 2411 2451 2452 2455 2470 2471 2474 2514 2515 2518 2533 2534 2537 2577 2578 2581 2596 2597 2600 2643 01 INDEX-05 6352 DI 1 0739 1250 1276 1276 1319 1322 1324 1326 1332 1358 1358 1401 1404 1406 1408 1418 1445 1445 1488 1493 1495 1497 1503 1529 1529 1572 1575 1577 1579 1588 1614 1614 1657 1661 1663 1665 1674 1700 1700 1743 1748 1750 1752 1762 1788 1788 1831 1836 1838 1840 1846 1884 1884 1937 1940 1943 1945 1952 1982 1982 2040 2043 2045 2047 2053 2103 2106 2108 2110 2116 2166 2169 2171 2173 2179 2229 2232 2234 2236 2242 2292 2295 2297 2299 2305 2355 2358 2360 2362 2368 2418 2421 2423 2425 2431 2481 2484 2486 2488 2494 2544 2547 2549 2551 2557 2607 2610 2612 2614 2620 2641 01 INDEX-TISK 6360 DI 1 0748 1246 1319 1322 1324 1326 1328 1401 1404 1406 1408 1410 1488 1493 1495 1497 1499 1572 1575 1577 1579 1581 1657 1661 1663 1665 1667 1743 1748 1750 1752 1754 1831 1836 1838 1840 1842 1937 1940 1943 1945 1948 2040 2043 2045 2047 2049 2103 2106 2108 2110 2112 2166 2169 2171 2173 2175 2229 2232 2234 2236 2238 2292 2295 2297 2299 2301 2355 2358 2360 2362 2364 2418 2421 2423 2425 2427 2481 2484 2486 2488 2490 2544 2547 2549 2551 2553 2607 2610 2612 2614 2616 2642 01 PRUBEH-1 6368 DI 1 0752 1846 1892 1892 1952 1990 1996 1996 2053 2059 2059 2116 2122 2122 2179 2185 2185 2242 2248 2248 2305 2311 2311 2368 2374 2374 2431 2437 2437 2494 2500 2500 2557 2563 2563 2620 2642 01 POCET-VET 6376 DI 2 0755 1054 1187 1274 1356 1443 1527 1612 1698 1786 1882 1980 2642 01 PRVNI-CTENI 6384 DI 1 0758 01 DATUM 6392 AN 8 0765 0994 1042 01 WDATUM 6400 NE 8 0766 1062 1065 1067 1069 1072 1075 1077 1079 1085 1086 1090 2677 2681 2683 2689 2692 2719 01 WDATUM1 6408 NE 8 0767 1070 1072 1075 2678 2681 2683 2690 2692 01 LIST 6416 NE 5 0768 1045 1047 01 WPOL1 6424 NE 5 0770 1098 01 WPOL2 6432 NE 6 0771 1099 01 WPOL11 6440 NE 4 0772 1078 1080 01 WPOL21 6448 NE 4 0773 1411 1414 1417 1490 01 WB18 6456 GR 5 0774 02 W181 6456 NE 2 0775 02 W182 6458 NE 3 0776 1096 2667 2668 2671 2676 2680 2683 2688 2691 2694 01 WPREVOD-DOV 6464 NE 4 0778 1413 1416 1420 1489 01 POL-DOV 6472 DI 5 0779 01 W817 6480 DI 1 0780 01 W818 6488 DI 1 0781 01 W819 6496 DI 1 0782 01 W820 6504 DI 1 0783 01 W4 6512 NE 11 0784 1056 1058 01 ND-KONEC 6528 DI 1 0785 1187 1247 1255 1274 1329 1337 1356 1412 1424 1443 1500 1508 1527 1582 1593 1612 1668 1679 1698 1755 1767 1786 1843 1861 1882 1949 1958 1980 2050 2113 2176 2239 2302 2365 2428 2491 2554 2617 2633 2640 01 ND-VETA 6536 DI 1 0787 1259 1264 1266 1269 1271 1272 1341 1346 1348 1351 1353 1354 1428 1433 1435 1438 1440 1441 1512 1517 1519 1522 1524 1525 1597 1602 1604 1607 1609 1610 1683 1688 1690 1693 1695 1696 1771 1776 1778 1781 1783 1784 1867 1872 1874 1877 1879 1880 1965 1970 1972 1975 1977 1978 2640 01 ND1 6544 DI 1 0789 1256 1275 1281 1338 1357 1363 1425 1444 1450 1509 1528 1534 1594 1613 1619 1680 1699 1705 1768 1787 1793 1864 1883 1889 1962 1981 1987 2641 01 ND2 6552 DI 1 0790 1261 1275 1281 1288 1343 1357 1363 1370 1430 1444 1450 1457 1514 1528 1534 1541 1599 1613 1619 1626 1685 1699 1705 1712 1773 1787 1793 1800 1869 1883 1889 1906 1967 1981 1987 2009 2072 2135 2198 2261 2324 2387 2450 2513 2576 2641 01 ND3 6560 DI 1 0791 1266 1275 1281 1348 1357 1363 1435 1444 1450 1519 1528 1534 1604 1613 1619 1690 1699 1705 1778 1787 1793 1874 1883 1889 1972 1981 1987 2641 01 DNAR 6568 GR 60 0794 1127 1131 02 DNAR1 6568 NE 10 0795 1121 02 DNAR2 6578 NE 10 0796 1122 02 DNAR3 6588 NE 10 0797 1123 02 DNAR4 6598 NE 10 0798 1124 02 DNAR5 6608 NE 10 0799 1125 02 DNAR6 6618 NE 10 0800 1126 01 WNARDETI1 6632 GR 12 0801 1118 1131 02 WDNAR1 6632 AN 6 0802 1121 02 WDNAR2 6638 AN 6 0803 1122 01 WNARDETI2 6648 GR 12 0804 1119 1131 02 WDNAR3 6648 AN 6 0805 1123 02 WDNAR4 6654 AN 6 0806 1124 01 WNARDETI3 6664 GR 12 0807 1120 1131 02 WDNAR5 6664 AN 6 0808 1125 02 WDNAR6 6670 AN 6 0809 1126 01 WDA-VP-OD1 6680 GR 6 0811 0814 02 WDDMM1 6680 AN 4 0812 02 WROK1 6684 AN 2 0813 01 WDAT-VP-OD1 6680 AN 6 0814 2677 2684 01 WDA-VP-DO1 6688 GR 6 0815 0818 02 WDDMM2 6688 AN 4 0816 02 WROK2 6692 AN 2 0817 01 WDAT-VP-DO1 6688 AN 6 0818 2678 2684 01 WDA-VP-OD2 6696 GR 6 0819 0822 02 WDDMM3 6696 AN 4 0820 02 WROK3 6700 AN 2 0821 01 WDAT-VP-OD2 6696 AN 6 0822 2689 2695 01 WDA-VP-DO2 6704 GR 6 0823 0826 02 WDDMM4 6704 AN 4 0824 02 WROK4 6708 AN 2 0825 01 WDAT-VP-DO2 6704 AN 6 0826 2690 2695 01 RODCIS 6712 GR 65 0827 1157 1160 02 WRODCISLO1 6712 AN 10 0828 1139 1141 1161 02 FILLER 6722 AN 1 0829 02 WRODCISLO2 6723 AN 10 0830 1142 1144 1161 02 FILLER 6733 AN 1 0831 02 WRODCISLO3 6734 AN 10 0832 1145 1147 1161 02 FILLER 6744 AN 1 0833 02 WRODCISLO4 6745 AN 10 0834 1148 1150 1161 02 FILLER 6755 AN 1 0835 02 WRODCISLO5 6756 AN 10 0836 1151 1153 1162 02 FILLER 6766 AN 1 0837 02 WRODCISLO6 6767 AN 10 0838 1154 1156 1162 01 WND 6784 GR 57 0841 1248 1320 1331 1402 1414 1490 1502 1573 1584 1659 1670 1745 1757 1833 1845 1938 1950 2041 2051 2104 2114 2167 2177 2230 2240 2293 2303 2356 2366 2419 2429 2482 2492 2545 2555 2608 2618 2634 2637 02 W45 6784 GR 7 0842 03 W451 6784 AN 2 0843 03 W453 6786 AN 1 0844 03 W452 6787 AE 4 0845 02 W48 6791 AE 4 0846 02 W1 6795 NE 4 0847 02 W52 6799 GR 8 0848 03 W521 6799 NE 2 0849 1201 1213 03 W522 6801 AN 2 0850 1202 1212 03 W523 6803 NE 2 0851 1203 1213 1218 03 W524 6805 AN 1 0852 1212 1217 03 W525 6806 AN 1 0853 02 W63 6807 NE 3 0854 02 FILLER 6810 AN 4 0855 02 W13 6814 NE 3 0856 02 FILLER 6817 AN 3 0857 02 W66-1 6820 NE 3 0858 02 W66-2 6823 AN 1 0859 02 W66-3 6824 NE 3 0860 02 W55 6827 NE 8 0861 02 W58 6835 GR 6 0862 03 W581 6835 AN 2 0863 1199 1204 1208 1211 1212 1215 1217 03 W582 6837 AN 1 0864 1205 1212 1217 03 W583 6838 AE 3 0865 1206 1212 1217 01 WTISK1 6848 GR 68 0867 1950 1951 1954 2041 2051 2052 2104 2114 2115 2167 2177 2178 2230 2240 2241 2293 2303 2304 2356 2366 2367 2419 2429 2430 2482 2492 2493 2545 2555 2556 2608 2618 2619 2634 2635 2637 2659 2661 02 W8 6848 NE 5 0868 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 2649 02 W62 6853 NE 5 0869 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 02 W9 6858 NE 5 0870 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 02 W11 6863 NE 6 0871 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 2650 02 W10 6869 NE 7 0872 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 2651 02 W6 6876 NE 5 0873 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 2652 02 W7 6881 NE 7 0874 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 2653 02 W41 6888 NE 8 0875 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 2654 02 W5 6896 NE 6 0876 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 2655 02 W83 6902 NE 6 0877 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 2657 02 W73 6908 NE 8 0878 1899 2002 2065 2128 2191 2254 2317 2380 2443 2506 2569 2631 2656 01 WTISK2 6920 GR 150 0881 2756 2758 2926 02 WW1 6920 NE 3 0882 2751 2771 2786 2801 2816 2831 2846 2861 2876 2891 2906 2921 02 WW105 6923 NE 8 0883 2752 2772 2787 2802 2817 2832 2847 2862 2877 2892 2907 2922 2928 02 WW36 6931 NE 6 0884 2752 2772 2787 2802 2817 2832 2847 2862 2877 2892 2907 2922 2928 02 WW37 6937 NE 6 0885 2752 2772 2787 2802 2817 2832 2847 2862 2877 2892 2907 2922 2928 02 WW16 6943 NE 6 0886 2752 2772 2787 2802 2817 2832 2847 2862 2877 2892 2907 2922 2928 02 WW17 6949 NE 7 0887 2752 2772 2787 2802 2817 2832 2847 2862 2877 2892 2907 2922 2928 02 WW18 6956 NE 7 0888 2752 2772 2787 2802 2817 2832 2847 2862 2877 2892 2907 2922 2928 02 WW19 6963 NE 7 0889 2752 2772 2787 2802 2817 2832 2847 2862 2877 2892 2907 2922 2928 02 WW20 6970 NE 8 0890 2753 2773 2788 2803 2818 2833 2848 2863 2878 2893 2908 2923 2929 02 WW81 6978 NE 8 0891 2752 2772 2787 2802 2817 2832 2847 2862 2877 2892 2907 2922 2928 02 WW23 6986 NE 7 0892 2752 2772 2787 2802 2817 2832 2847 2862 2877 2892 2907 2922 2928 02 WW31 6993 NE 6 0893 2753 2773 2788 2803 2818 2833 2848 2863 2878 2893 2908 2923 2928 02 WW29 6999 NE 6 0894 2753 2773 2788 2803 2818 2833 2848 2863 2878 2893 2908 2923 2929 02 WW28 7005 NE 7 0895 2753 2773 2788 2803 2818 2833 2848 2863 2878 2893 2908 2923 2929 02 WW27 7012 NE 8 0896 2753 2773 2788 2803 2818 2833 2848 2863 2878 2893 2908 2923 2929 02 WW33 7020 NE 7 0897 2753 2773 2788 2803 2818 2833 2848 2863 2878 2893 2908 2923 2929 02 WW25 7027 NE 7 0898 2753 2773 2788 2803 2818 2833 2848 2863 2878 2893 2908 2923 2929 02 WW35 7034 NE 7 0899 2753 2773 2788 2803 2818 2833 2848 2863 2878 2893 2908 2923 2929 02 WW24 7041 NE 7 0900 2753 2773 2788 2803 2818 2833 2848 2863 2878 2893 2908 2923 2929 02 WW34 7048 NE 5 0901 2754 2774 2789 2804 2819 2834 2849 2864 2879 2894 2909 2924 2929 02 WW42 7053 NE 9 0902 2754 2774 2789 2804 2819 2834 2849 2864 2879 2894 2909 2924 2929 02 WW43 7062 NE 8 0903 2754 2774 2789 2804 2819 2834 2849 2864 2879 2894 2909 2924 2929 01 T1 7072 NE 7 0906 2935 01 T2 7080 NE 7 0907 01 T3 7088 NE 6 0908 2936 01 T4 7096 NE 7 0909 01 T5 7104 NE 8 0910 2937 01 T6 7112 NE 8 0911 01 T7 7120 NE 8 0912 2938 01 T8 7128 NE 8 0913 01 T9 7136 NE 7 0914 2939 01 T10 7144 NE 7 0915 2941 01 T11 7152 NE 7 0916 01 T12 7160 NE 7 0917 2940 01 T13 7168 NE 7 0918 01 T14 7176 NE 7 0919 2942 01 T15 7184 NE 7 0920 01 T16 7192 NE 6 0921 2943 01 T17 7200 NE 8 0922 01 T18 7208 NE 8 0923 2944 01 T19 7216 NE 4 0924 01 T20 7224 NE 8 0925 2945 01 T21 7232 NE 7 0926 2946 01 TD1 7240 NE 7 0928 2748 01 TD2 7248 NE 7 0929 2768 01 TD3 7256 NE 7 0930 2783 01 TD4 7264 NE 7 0931 2798 01 TD5 7272 NE 7 0932 2813 01 TD6 7280 NE 7 0933 2828 01 TD7 7288 NE 7 0934 2843 01 TD8 7296 NE 7 0935 2858 01 TD9 7304 NE 7 0936 2873 01 TD10 7312 NE 7 0937 2888 01 TD11 7320 NE 7 0938 2903 01 TD12 7328 NE 7 0939 2918 01 POL1 7336 DI 3 0941 2649 2663 01 POL2 7344 DI 3 0942 2650 2663 01 POL3 7352 DI 5 0943 2651 2663 01 POL4 7360 DI 5 0944 2652 2663 01 POL5 7368 DI 5 0945 2653 2663 01 POL6 7376 DI 6 0946 2654 2663 01 POL7 7384 DI 6 0947 2655 2663 01 POL8 7392 DI 6 0948 2656 2663 01 POL81 7400 DI 6 0949 2657 2663 01 POLE1 7408 DI 6 0950 2935 01 POLE2 7416 DI 6 0951 01 POLE3 7424 DI 6 0952 2936 01 POLE4 7432 DI 6 0953 01 POLE5 7440 DI 6 0954 2937 01 POLE6 7448 DI 6 0955 01 POLE7 7456 DI 6 0956 2938 01 POLE8 7464 DI 6 0957 01 POLE9 7472 DI 6 0958 2939 01 POLE10 7480 DI 6 0959 2941 01 POLE11 7488 DI 6 0960 01 POLE12 7496 DI 6 0961 2940 01 POLE13 7504 DI 6 0962 01 POLE14 7512 DI 6 0963 2942 01 POLE15 7520 DI 6 0964 01 POLE16 7528 DI 6 0965 2943 01 POLE17 7536 DI 6 0966 01 POLE18 7544 DI 6 0967 2944 01 POLE19 7552 DI 3 0968 01 POLE20 7560 DI 6 0969 2945 01 POLE21 7568 DI 6 0970 2946 01 POLE22 7576 DI 6 0971 01 IND1 7584 DI 1 0973 1896 1991 1992 1999 2062 2125 2188 2251 2314 2377 2440 2503 2566 2628 2642 01 IND2 7592 DI 1 0976 2747 2762 2763 2767 2782 2797 2812 2827 2842 2857 2872 2887 2902 2917 2930 01 WKAL-DNY-PR-NESCHOP 7600 DI 3 0979 2667 2671 01 WKAL-DNY-VYR-PRISP1 7608 DI 3 0981 2675 2676 2683 01 WKAL-DNY-VYR-PRISP2 7616 DI 3 0982 2688 2694 77 TALLY 7624 BI 4 0000 77 NSTD-REELS 7628 BI 2 0000 77 WHEN-COMPILED 7632 AN 16 0000 ERROR LISTING: line 0001: warning 0002 level 0 (some division/section/paragraph header before PROGRAM-ID missing - never mind) line 0527: warning 9206 level 0 (the length of data-item VETA-MZ is very long - the LINKAGE SECTION and CALL 'ICUGETV' is recomended) Errors: 0, warnings: 2 Turbo C Version 2.01 Copyright (c) 1987, 1988 Borland International d:\cew\cobol\p\mx_x1.c: Warning D:\CeW\cobol\p\mx_x1.t 335: Unreachable code in function _f0023 Warning D:\CeW\cobol\p\mx_x1.t 458: Unreachable code in function _f0033 Warning D:\CeW\cobol\p\mx_x1.t 552: Unreachable code in function _f0042 Warning D:\CeW\cobol\p\mx_x1.t 736: Unreachable code in function _f0051 Warning D:\CeW\cobol\p\mx_x1.t 830: Unreachable code in function _f0060 Warning D:\CeW\cobol\p\mx_x1.t 1000: Unreachable code in function _f0069 Warning D:\CeW\cobol\p\mx_x1.t 1172: Unreachable code in function _f0078 Warning D:\CeW\cobol\p\mx_x1.t 1348: Unreachable code in function _f0087 Warning D:\CeW\cobol\p\mx_x1.t 1527: Unreachable code in function _f0096 Warning D:\CeW\cobol\p\mx_x1.t 1704: Unreachable code in function _f0107 Error d:\cew\cobol\p\mx_x1.c 4815: Out of memory in function _ *** 1 errors in Compile *** Available memory 270176